diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-02-07 23:39:57 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-02-07 23:39:57 +0000 |
commit | b77ca9d0859115a23661fd73c523d0bb5cc4dcd3 (patch) | |
tree | a3f814be15a7a3cf45a9af1362ea444be0daaeec /Master/tlpkg | |
parent | 9b3bec17ba760cebe0bdc43b834c6ef4456cd739 (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 5 |
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`); |