summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMaster/tlpkg/libexec/place8
1 files changed, 4 insertions, 4 deletions
diff --git a/Master/tlpkg/libexec/place b/Master/tlpkg/libexec/place
index 73c212205af..bea7f80b37c 100755
--- a/Master/tlpkg/libexec/place
+++ b/Master/tlpkg/libexec/place
@@ -128,7 +128,7 @@ foreach $file (sort keys %Old) {
# remove no longer existing files.
if (! $New{$file}) {
- &xsystem ("svn remove $M/$file");
+ &xsystem ("svn remove \"$M/$file\"");
(my $old_dir = "$M/$file") =~ s,/[^/]*$,,;
$dirs_with_removals{$old_dir}++;
}
@@ -273,7 +273,7 @@ sub add_file {
# being binary vs. text, or mixed eol conventions. Attempt to repair
# -- just with pdf for now. This is not tested and needs work.
#
- if (!defined (eval qq(xsystem("svn add $newfile")))
+ if (!defined (eval qq(xsystem("svn add \"$newfile\"")))
&& $newfile =~ /\.pdf\$/) {
&xsystem ("svn proplist --verbose $newfile");
&xsystem ("svn propset svn:mime-type application/pdf $newfile");
@@ -322,12 +322,12 @@ sub show_tlp_diffs {
my @oldfiles = keys %Old;
unlink ("$tmpfile.old");
foreach (sort @oldfiles) {
- `echo $_ >>$tmpfile.old`;
+ `echo "$_" >>$tmpfile.old`;
}
my @newfiles = $tlpnew->all_files;
unlink ("$tmpfile.new");
foreach (sort @newfiles) {
- `echo $_ >>$tmpfile.new`;
+ `echo "$_" >>$tmpfile.new`;
}
print `comm -3 $tmpfile.new $tmpfile.old`;
my @difffiles = `comm -12 $tmpfile.new $tmpfile.old`;