diff options
author | Norbert Preining <preining@logic.at> | 2007-12-10 16:03:37 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-12-10 16:03:37 +0000 |
commit | 85b444f5b58847a7fdc4d7eb68e878bff8c969ba (patch) | |
tree | def2015e347dc9f38e0e5052c1bda4f1aa821f99 | |
parent | ff6ce3d3c0e7c87a68cb013bc9e1f5240d99a4d5 (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.pm | 5 |
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; |