diff options
author | Karl Berry <karl@freefriends.org> | 2006-08-27 18:21:49 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-08-27 18:21:49 +0000 |
commit | 3875fb4f1f03dec9875f95e5ebebc7dfab4a5f2a (patch) | |
tree | 6cd8914e845c174e50905800a0d303a3fae6b068 /Build | |
parent | 82ddb75ff69905181f43a1f1f59d247fbb3b77b6 (diff) |
syntax
git-svn-id: svn://tug.org/texlive/trunk@2045 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build')
-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)); |