diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index a44ca6a7c0d..7cf27f446b5 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -937,7 +937,7 @@ sub add_menu_shortcut { next; # fail silently and don't worry about it } elsif (not (-d $shpath)) { mkdirhier($shpath); - #return unless mkdirhier ($shpath); + return unless -d $shpath; } $shfile = $shpath.'/'.$name.'.lnk'; $shc->Save($shfile); @@ -1068,12 +1068,12 @@ sub unregister_uninstaller { $regkey_uninst = $Registry->Open( "CUser/software/microsoft/windows/currentversion/uninstall/", {Access => KEY_ALL_ACCESS()}); - reg_delete_recurse($regkey_uninst, 'texlive') if $regkey_uninst; + reg_delete_recurse($regkey_uninst, 'texlive/') if $regkey_uninst; return unless admin(); $regkey_uninst = $Registry->Open( "LMachine/software/microsoft/windows/currentversion/uninstall/", {Access => KEY_ALL_ACCESS()}); - reg_delete_recurse($regkey_uninst, 'texlive') if $regkey_uninst; + reg_delete_recurse($regkey_uninst, 'texlive/') if $regkey_uninst; } =pod |