From 8bf9a182adf98b559fdf67c5612a1a7ee8f619f7 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 28 Apr 2009 18:27:20 +0000 Subject: fix some things in branch git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12839 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLMedia.pm | 2 +- Master/tlpkg/TeXLive/TLUtils.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 8c0423a7a87..85347df9aea 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -10,7 +10,7 @@ package TeXLive::TLMedia; use TeXLive::TLConfig; use TeXLive::TLPackageConfigurations; use TeXLive::TLUtils qw(copy win32 dirname mkdirhier basename download_file - merge_into debug ddebug info tlwarn); + merge_into debug ddebug info tlwarn log); use TeXLive::TLPDB; sub new diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 0e4c65ea62a..9a84891a93a 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1359,7 +1359,7 @@ sub _do_postaction_script { my $texdir = `kpsewhich -var-value=SELFAUTOPARENT`; chomp($texdir); my @syscmd; - push @syscmd, (win32() ? $filew : $file), $texdir, $how; + push @syscmd, (win32() ? "$texdir/$filew" : "$texdir/$file"), $texdir, $how; my $ret = system (@syscmd); if ($ret != 0) { $ret /= 256 if $ret > 0; -- cgit v1.2.3