changeset 115 | 5bbdda50c091 |
parent 88 | d22c49c5048f |
114:0c3b152c1568 | 115:5bbdda50c091 |
---|---|
117 |
117 |
118 sub scan_directory($$) |
118 sub scan_directory($$) |
119 { |
119 { |
120 my ($path, $shadow) = @_; |
120 my ($path, $shadow) = @_; |
121 |
121 |
122 return if lc $path eq "/epoc32/build"; |
|
123 |
|
122 opendir DIR, $path; |
124 opendir DIR, $path; |
123 my @files = grep !/^\.\.?$/, readdir DIR; |
125 my @files = grep !/^\.\.?$/, readdir DIR; |
124 closedir DIR; |
126 closedir DIR; |
125 |
127 |
126 foreach my $file (@files) |
128 foreach my $file (@files) |