summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-08-27 18:21:49 +0000
committerKarl Berry <karl@freefriends.org>2006-08-27 18:21:49 +0000
commit3875fb4f1f03dec9875f95e5ebebc7dfab4a5f2a (patch)
tree6cd8914e845c174e50905800a0d303a3fae6b068
parent82ddb75ff69905181f43a1f1f59d247fbb3b77b6 (diff)
syntax
git-svn-id: svn://tug.org/texlive/trunk@2045 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xBuild/cdbuild/place7
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));