| changeset 114 | 5bbdda50c091 |
| parent 87 | d22c49c5048f |
| 113:0c3b152c1568 | 114: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) |