summaryrefslogtreecommitdiff
path: root/Master/tlpkg/libexec/place
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/libexec/place')
-rwxr-xr-xMaster/tlpkg/libexec/place12
1 files changed, 6 insertions, 6 deletions
diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place
index 947921404d2..4b02bb13e78 100755
--- a/Master/tlpkg/libexec/place
+++ b/Master/tlpkg/libexec/place
@@ -256,19 +256,19 @@ my $dirlist_file = "$tmpfile.dirs";
$DIRLIST = ">$dirlist_file";
open (DIRLIST) || die "open($DIRLIST) failed: $!";
#
-print "place: directories are:\n";
+print "\n\f place: directories are:\n";
for my $dir (sort keys %dirs) {
print "$dir\n";
print DIRLIST "$dir\n";
}
-#
close (DIRLIST) || warn "close($DIRLIST) failed: $!";
-# Always run svn update, even without --place. This will let a worker
-# detect that a particular package update has already been done by
-# someone else.
+# Always run svn update, even without --place. This can help a worker
+# detect that a package update has already been done by someone else.
if ($opt_mode eq "svn") {
- print ("\nsvn update of those directories:\n");
+ print ("\nsvn status of those directories:\n");
+ system ("svn status `cat $dirlist_file`");
+ print ("\f\nsvn update of those directories:\n");
system ("svn update `cat $dirlist_file`");
}
# do nothing in git mode