From 82ddb75ff69905181f43a1f1f59d247fbb3b77b6 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 27 Aug 2006 18:17:37 +0000 Subject: if a file doesn't exist, don't count its directory. git-svn-id: svn://tug.org/texlive/trunk@2044 c570f23f-e606-0410-a88d-b1316a301751 --- Build/cdbuild/place | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'Build/cdbuild/place') diff --git a/Build/cdbuild/place b/Build/cdbuild/place index 00854662692..81fbe499c18 100755 --- a/Build/cdbuild/place +++ b/Build/cdbuild/place @@ -58,8 +58,13 @@ else { find (\&files,"."); foreach $file (sort keys %Old) { print "* $file: [retained=$New{$file}]\n"; - # don't remove tpm or lists file, they won't be in the new package - if (! $New{$file} && $file !~ /\.tpm$/ && $file !~ m,/lists/[^/]+$,) { + + # and if the file does not exist, don't try to remove it -- we + # probably did so by hand and didn't bother to update the tpm. + 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/[^/]+$) { &my_system ("svn remove $M/$file"); } $dirs{dirname ("$M/$file")}++; -- cgit v1.2.3