summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2003-01-07 10:34:11 +0000
committerDaouda Lo <daouda@mandriva.com>2003-01-07 10:34:11 +0000
commit791df09271253ca6a746bbdb8407864eccc86b35 (patch)
tree6560da3763be53d4565a164440b3ead8fa9cdf86 /perl-install
parent413c17578b48fb0d8acccd0add4cda05fbbc6ca5 (diff)
downloaddrakx-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.pm7
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 &");
}