diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2012-05-27 12:03:38 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2012-05-27 12:03:38 +0000 |
| commit | 7cec8e225daeac075e81696b5697fe98426f3622 (patch) | |
| tree | baa0d93067be145de943839a26dbe258c138c183 | |
| parent | 04f489462a1e10eb10a0f993c32ff227b5e26b25 (diff) | |
Added small delays when recursively removing registry entries
git-svn-id: svn://tug.org/texlive/trunk@26672 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm index 2c9e28273e5..63dc07c102a 100644 --- a/Master/tlpkg/TeXLive/TLWinGoo.pm +++ b/Master/tlpkg/TeXLive/TLWinGoo.pm @@ -138,6 +138,7 @@ BEGIN { $Registry->FixSzNulls(1); require Win32::Shortcut; Win32::Shortcut->import( qw( SW_SHOWNORMAL SW_SHOWMINNOACTIVE ) ); + require Time::HiRes; } } @@ -598,6 +599,7 @@ sub reg_delete_recurse { foreach my $v (keys %$child) { if ($v =~ '^/') { # value delete $child->{$v}; + Time::HiRes::usleep(20000); } else { # subkey return 0 unless reg_delete_recurse ($child, $v); } @@ -605,6 +607,7 @@ sub reg_delete_recurse { #delete $child->{'/'}; } delete $parent->{$childname}; + Time::HiRes::usleep(20000); return 1; } |