summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-10-15 16:44:30 +0000
committerKarl Berry <karl@freefriends.org>2007-10-15 16:44:30 +0000
commitfcd9340c3cb861b77d6ba9b91ed3c6963dca8e46 (patch)
treed04bd25618650a1c457e1c1105433c0aa3c4e3e5 /Master/tlpkg
parentcb0242710d6e1f090949ba9bd63b50c9f6410865 (diff)
oops, failed to remove old files for a while.
git-svn-id: svn://tug.org/texlive/trunk@5199 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/place12
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";