From e49ebe1d90239598bfb667fe6c4c23c643e75fd4 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Mon, 6 Jan 2003 21:32:02 +0000 Subject: - perl checker - no retval --- perl-install/standalone.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index 7ca765a50..addeb5f2d 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -148,11 +148,10 @@ sub on_request_help { my ($link) = shift; my $browser; if (!($browser = $ENV{BROWSER})) { - foreach (qw(mozilla konqueror galeon)) { -x "/usr/bin/$_" or next; $browser = $_;last}; + foreach (qw(mozilla konqueror galeon)) { -x "/usr/bin/$_" or next; $browser = $_; last }; } standalone::explanations("Connection to help system at $link"); - my $ret = system("$browser $link &"); - $ret; + system("$browser $link &"); } ################################################################################ -- cgit v1.2.1