diff options
| author | Daouda Lo <daouda@mandriva.com> | 2003-01-07 10:34:11 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2003-01-07 10:34:11 +0000 |
| commit | 791df09271253ca6a746bbdb8407864eccc86b35 (patch) | |
| tree | 6560da3763be53d4565a164440b3ead8fa9cdf86 /perl-install | |
| parent | 413c17578b48fb0d8acccd0add4cda05fbbc6ca5 (diff) | |
| download | drakx-791df09271253ca6a746bbdb8407864eccc86b35.tar drakx-791df09271253ca6a746bbdb8407864eccc86b35.tar.gz drakx-791df09271253ca6a746bbdb8407864eccc86b35.tar.bz2 drakx-791df09271253ca6a746bbdb8407864eccc86b35.tar.xz drakx-791df09271253ca6a746bbdb8407864eccc86b35.zip | |
- compress code (pixel)
- use ask_warn when no browser is found on the system and BROWSER env
var not set.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/standalone.pm | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm index addeb5f2d..aacabdc72 100644 --- a/perl-install/standalone.pm +++ b/perl-install/standalone.pm @@ -145,11 +145,8 @@ Copyright (C) 1999-2002 MandrakeSoft by <install\@mandrakesoft.com> } 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 }; - } + my ($o, $link) = @_; + my $browser = $ENV{BROWSER} || MDK::Common::Func::find { -x "/usr/bin/$_" } qw(mozilla konqueror galeon) or $o->ask_warn('',N("No browser is installed on your system, Please install one if you want to browse the help system")); standalone::explanations("Connection to help system at $link"); system("$browser $link &"); } |