From 7cec8e225daeac075e81696b5697fe98426f3622 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Sun, 27 May 2012 12:03:38 +0000 Subject: Added small delays when recursively removing registry entries git-svn-id: svn://tug.org/texlive/trunk@26672 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLWinGoo.pm | 3 +++ 1 file changed, 3 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLWinGoo.pm') 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; } -- cgit v1.2.3