summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLWinGoo.pm
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-05-21 10:08:43 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-05-21 10:08:43 +0000
commit246e3a9180a28cb419402687d2005bdfb5313774 (patch)
treeb9d20cbd7fc933e521846c4fef3b93e2488ea7e2 /Master/tlpkg/TeXLive/TLWinGoo.pm
parent1b9a188fffa8cd358d177805dca9f11718f68d4b (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.pm6
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