summaryrefslogtreecommitdiff
path: root/Master/tlpkg/libexec/place
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2012-02-20 23:12:30 +0000
committerNorbert Preining <preining@logic.at>2012-02-20 23:12:30 +0000
commit744840d77c63f8399e836aaf65f841629ab59b0e (patch)
tree7efa79ffeafc5990af2d64121ddb196d5791de3f /Master/tlpkg/libexec/place
parent0a61493435f21815a2c0c2b679a2710e8f3b6453 (diff)
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
Diffstat (limited to 'Master/tlpkg/libexec/place')
-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`;