From bb3bf448ee74f85c6e2ed427473a94cc0b9b6f26 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 4 Jun 2007 22:23:29 +0000 Subject: do not fork useless shells --- perl-install/standalone/drakhelp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakhelp') diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp index 15c4963c2..4e4716684 100644 --- a/perl-install/standalone/drakhelp +++ b/perl-install/standalone/drakhelp @@ -32,7 +32,7 @@ my ($opt, $idlabel) = @ARGV; my ($instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel); if (! -e $instpath) { - system("/usr/sbin/drakhelp_inst $package"); + system('/usr/sbin/drakhelp_inst', $package); } if (! -e $instpath) { @@ -45,7 +45,7 @@ if (! -e $instpath) { if (-e $instpath) { local $ENV{HOME} = '/root'; - system("/usr/bin/www-browser file://$ancpath &"); + run_program::raw({ detach => 1 }, '/usr/bin/www-browser', "file://$ancpath"); } else { $ugtk2::wm_icon = "help"; my $in = interactive->vnew; -- cgit v1.2.1