diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-05-21 10:08:43 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-05-21 10:08:43 +0000 |
commit | 246e3a9180a28cb419402687d2005bdfb5313774 (patch) | |
tree | b9d20cbd7fc933e521846c4fef3b93e2488ea7e2 /Master/tlpkg/TeXLive/TLWinGoo.pm | |
parent | 1b9a188fffa8cd358d177805dca9f11718f68d4b (diff) |
- dir-writable test to TLUtils, now also used by Unix.
- install-menu-perltk: color back to black after selection of
writable texdir
- TLWinGoo after mkdirhier: test for existence of created directory
git-svn-id: svn://tug.org/texlive/trunk@8271 c570f23f-e606-0410-a88d-b1316a301751
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 |