williamr/convert_to_eula.pl
changeset 114 5bbdda50c091
parent 87 d22c49c5048f
equal deleted inserted replaced
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)