diff options
| author | Daouda Lo <daouda@mandriva.com> | 2003-01-06 21:32:02 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2003-01-06 21:32:02 +0000 |
| commit | e49ebe1d90239598bfb667fe6c4c23c643e75fd4 (patch) | |
| tree | a32079947fe2c30a551064c21437f6bbfcb49219 /perl-install | |
| parent | 67bdac233a5b875c9c404a2cf8f990f949d221dc (diff) | |
| download | drakx-e49ebe1d90239598bfb667fe6c4c23c643e75fd4.tar drakx-e49ebe1d90239598bfb667fe6c4c23c643e75fd4.tar.gz drakx-e49ebe1d90239598bfb667fe6c4c23c643e75fd4.tar.bz2 drakx-e49ebe1d90239598bfb667fe6c4c23c643e75fd4.tar.xz drakx-e49ebe1d90239598bfb667fe6c4c23c643e75fd4.zip | |
- perl checker
- no retval
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone.pm | 5 |
1 files 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 &"); } ################################################################################ |