make place a bit spaces/strange characters aware in file names

git-svn-id: svn://tug.org/texlive/trunk@25440 c570f23f-e606-0410-a88d-b1316a301751

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`;