summaryrefslogtreecommitdiff
path: root/Master/tlpkg/doc/w32unclient
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/doc/w32unclient')
-rw-r--r--Master/tlpkg/doc/w32unclient19
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()});