diff options
Diffstat (limited to 'Master/tlpkg/libexec/place')
-rwxr-xr-x | Master/tlpkg/libexec/place | 12 |
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 |