diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 6 |
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\" |