diff options
| -rwxr-xr-x | Build/cdbuild/place | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Build/cdbuild/place b/Build/cdbuild/place index 81fbe499c18..60381aa411d 100755 --- a/Build/cdbuild/place +++ b/Build/cdbuild/place @@ -64,7 +64,7 @@ foreach $file (sort keys %Old) { next unless -f "$M/$file"; # don't remove tpm or lists file, they won't be in the new package. - if (! $New{$file} && $file !~ /\.tpm$/ && $file !~ m,/lists/[^/]+$) { + if (! $New{$file} && $file !~ /\.tpm$/ && $file !~ m,/lists/[^/]+$,) { &my_system ("svn remove $M/$file"); } $dirs{dirname ("$M/$file")}++; @@ -147,14 +147,13 @@ sub dirs { local @filenames; if (-d) { - @filenames=&buildfilelist($File::Find::name, - $_); + @filenames=&buildfilelist($File::Find::name); if (!@filenames) { rmdir $File::Find::name;} }} sub buildfilelist { - local($me,$name) = @_; + my($me) = @_; my @files; opendir(DIR,$me) || cleanup ("cannot open directory $me"); @files =grep(!/^\.\.?/,readdir(DIR)); |