diff options
Diffstat (limited to 'Master/tlpkg/bin/place')
-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"; |