syntax

git-svn-id: svn://tug.org/texlive/trunk@2045 c570f23f-e606-0410-a88d-b1316a301751

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));