summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2012-05-27 12:03:38 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2012-05-27 12:03:38 +0000
commit7cec8e225daeac075e81696b5697fe98426f3622 (patch)
treebaa0d93067be145de943839a26dbe258c138c183 /Master/tlpkg/TeXLive
parent04f489462a1e10eb10a0f993c32ff227b5e26b25 (diff)
Added small delays when recursively removing registry entries
git-svn-id: svn://tug.org/texlive/trunk@26672 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm3
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;
}