summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-12-10 16:03:37 +0000
committerNorbert Preining <preining@logic.at>2007-12-10 16:03:37 +0000
commit85b444f5b58847a7fdc4d7eb68e878bff8c969ba (patch)
treedef2015e347dc9f38e0e5052c1bda4f1aa821f99
parentff6ce3d3c0e7c87a68cb013bc9e1f5240d99a4d5 (diff)
slashes and backslashes
DEBUG statements git-svn-id: svn://tug.org/texlive/trunk@5745 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 03ed19c1e9c..b5fb6ab1827 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -587,6 +587,9 @@ sub install_package {
$lzmadec="$bindir/lzma.exe d -si -so"; $lzmadec =~ s!/!\\!g;
$tar="$bindir/tar.exe -xf - -C"; $tar =~ s!/!\\!g;
$wget="$bindir/wget.exe -nv -O-"; $wget =~ s!/!\\!g;
+ # make sure that the target has backslashes
+ $target =~ s!/!\\!g;
+ $what =~ s!/!\\!g;
}
if (ref $what) {
@@ -608,6 +611,8 @@ sub install_package {
or die "Can't open '$what': $!\n";
binmode IN;
+ print "DEBUG: opening IN $what\n";
+ print "DEBUG: opening OUT $lzmadec|$tar $target\n";
open OUT, "|$lzmadec|$tar $target";
binmode OUT;