From 47c85d99043cca6b4e972f297a685d67c1db7cfc Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 6 Aug 2002 12:58:54 +0000 Subject: (ddcxinfos): use the new run_program::raw with a 20s timeout to workaround ddcxinfos going wild using 100% system CPU --- perl-install/any.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 2420e6979..39f68738c 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1034,7 +1034,8 @@ You can use userdrake to add a user in this group.") sub ddcxinfos { return if $::noauto; - my @l = `$ENV{LD_LOADER} ddcxinfos`; + my @l; + run_program::raw({ timeout => 20 }, 'ddcxinfos', '>', \@l); if ($::isInstall && -e "/tmp/ddcxinfos") { my @l_old = cat_("/tmp/ddcxinfos"); if (@l < @l_old) { -- cgit v1.2.1