summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index b868e75b2f7..209e516cde2 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -925,12 +925,12 @@ Reinitialize unshort.bat, the shortcuts uninstaller.
=cut
sub init_unshortbat {
- my $texdir = shift;
+ my $texdirw = shift;
my $menupath = menu_path();
$menupath =~ s!/!\\!g;
# batchfile for uninstalling shortcuts
- open UNSHORT, ">$texdir/tlpkg/installer/unshort.bat";
+ open UNSHORT, ">$texdirw/tlpkg/installer/unshort.bat";
print UNSHORT 'rmdir /s /q "'.$menupath."\\TeX Live 2008\" 2>nul\n";
close UNSHORT;
}
@@ -1013,6 +1013,8 @@ sub create_uninstaller {
open UNINST, ">$tdwfw/tlpkg/installer/uninst.bat";
print UNINST <<UNEND;
\@echo off
+rem This should not be necessary, but sometimes it is:
+path $td\\bin\\win32;%path%
set PERL5LIB=
\"$td\\tlpkg\\tlperl\\bin\\perl.exe\" \"$td\\texmf\\scripts\\texlive\\uninstall-win32.pl\"
call \"$tdw\\tlpkg\\installer\\unshort.bat\"