diff options
Diffstat (limited to 'Master/tlpkg/doc/w32unclient')
-rw-r--r-- | Master/tlpkg/doc/w32unclient | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/Master/tlpkg/doc/w32unclient b/Master/tlpkg/doc/w32unclient index d43fc3d12a8..e297a13674b 100644 --- a/Master/tlpkg/doc/w32unclient +++ b/Master/tlpkg/doc/w32unclient @@ -7,19 +7,11 @@ BEGIN { $^W = 1; require "tlmgr.pl"; - - Win32::TieRegistry->import( qw( $Registry - REG_SZ REG_EXPAND_SZ KEY_READ KEY_WRITE KEY_ALL_ACCESS - KEY_ENUMERATE_SUB_KEYS ) ); - $Registry->Delimiter('/'); - $Registry->ArrayValues(0); - $Registry->FixSzNulls(1); - Win32::Shortcut->import( qw( SW_SHOWNORMAL SW_SHOWMINNOACTIVE ) ); } -$::opt_verbosity = 2; +#$::opt_verbosity = 2; -init_local_db(); +#init_local_db(); # Only make user-level changes even if admin $opts{'w32mode'} = 'user'; @@ -42,6 +34,13 @@ action_postaction(); unshift @ARGV, 'remove'; action_path(); +Win32::TieRegistry->import( qw( $Registry + REG_SZ REG_EXPAND_SZ KEY_READ KEY_WRITE KEY_ALL_ACCESS + KEY_ENUMERATE_SUB_KEYS ) ); +$Registry->Delimiter('/'); +$Registry->ArrayValues(0); +$Registry->FixSzNulls(1); + # unregister uninstaller my $rootkey = $Registry -> Open("CUser", {Access => Win32::TieRegistry::KEY_ALL_ACCESS()}); |