summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-02-07 23:39:57 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-02-07 23:39:57 +0000
commitb77ca9d0859115a23661fd73c523d0bb5cc4dcd3 (patch)
treea3f814be15a7a3cf45a9af1362ea444be0daaeec /Master/tlpkg/TeXLive/TLUtils.pm
parent9b3bec17ba760cebe0bdc43b834c6ef4456cd739 (diff)
TLUtils.pm: Use Perl instead of Windows.
git-svn-id: svn://tug.org/texlive/trunk@6520 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 58a324a2591..0707f3661e2 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -675,8 +675,7 @@ sub install_package {
tllog($::LOG_DEBUG, `type \"$target\\temp\\$fn\" | $lzmadec > \"$target\\temp\\$tarfile\" 2>&1`);
tllog($::LOG_DEBUG, "Unpacking temp\\$tarfile\n");
tllog($::LOG_DEBUG, `pushd \"$target\" & $tar -xf \"temp\\$tarfile\" 2>&1`);
- unlink("$target\\temp\\$tarfile");
- unlink("$target\\temp\\$fn");
+ unlink("$target/temp/$tarfile", "$target/temp/$fn");
} else {
tllog($::LOG_DEBUG, "downloading/unlzma-ing/unpacking $what\n");
tllog($::LOG_NORMAL, `$wget -q -O- \"$what\"|\"$lzmadec\"|$tar -xf - -C \"$target\"`);
@@ -691,7 +690,7 @@ sub install_package {
tllog($::LOG_DEBUG, `$lzmadec < \"$what\" > \"$target\\temp\\$tarfile\" 2>&1`);
tllog($::LOG_DEBUG, "Unpacking temp\\$tarfile\n");
tllog($::LOG_DEBUG, `pushd \"$target\" & $tar -xf \"temp\\$tarfile\" 2>&1`);
- unlink("$target\\temp\\$tarfile");
+ unlink("$target/temp/$tarfile");
} else {
tllog($::LOG_DEBUG, "downloading/unlzma-ing/unpacking $what\n");
tllog($::LOG_DEBUG, `cat \"$what\"|\"$lzmadec\"|$tar -xf - -C \"$target\" 2>&1`);