diff options
author | Karl Berry <karl@freefriends.org> | 2007-10-15 16:44:30 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-10-15 16:44:30 +0000 |
commit | fcd9340c3cb861b77d6ba9b91ed3c6963dca8e46 (patch) | |
tree | d04bd25618650a1c457e1c1105433c0aa3c4e3e5 | |
parent | cb0242710d6e1f090949ba9bd63b50c9f6410865 (diff) |
oops, failed to remove old files for a while.
git-svn-id: svn://tug.org/texlive/trunk@5199 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-x | Master/tlpkg/bin/place | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/place b/Master/tlpkg/bin/place index e080862fe32..1876d8bd755 100755 --- a/Master/tlpkg/bin/place +++ b/Master/tlpkg/bin/place @@ -136,12 +136,18 @@ if (!defined($tlpold)) { &xchdir ("$cooked/$package"); find (\&files,"."); foreach $file (sort keys %Old) { - print "* $file: [retained=$New{$file}]\n"; + my $status = $New{$file} ? "retained" : "removed"; + print "* $file\t[$status]\n"; # if the old file does not exist, don't try to remove it -- we # probably did so by hand and didn't bother to update. next unless -e "$M/$file"; - + + # remove old files. + if (! $New{$file}) { + &my_system ("svn remove $M/$file"); + } + my $dname = dirname ("$M/$file"); $dirs{$dname}++; } @@ -178,7 +184,7 @@ $dirs{"$M/tlpkg/tlpsrc/$package.tlpsrc"}++; $DIRLIST = ">$TMP/tlplace.dirs"; open (DIRLIST) || die "open($DIRLIST) failed: $!"; # -print "place: directories are\n"; +print "place: directories are:\n"; for my $dir (sort keys %dirs) { print "$dir\n"; print DIRLIST "$dir\n"; |