summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rwxr-xr-xperl-install/standalone/drakhelp6
2 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 0b1dfe97e..1827b357d 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,4 @@
+- drakhelp: make it work somewhat despite lack of doc
- prevent net_applet to crash on notifications without icons (mga#2876)
- harddrake: prevent detecting some soft modems as scanners (mga#2753)
diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp
index 2e77168a0..39781da91 100755
--- a/perl-install/standalone/drakhelp
+++ b/perl-install/standalone/drakhelp
@@ -9,7 +9,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla
use interactive;
use common;
use any;
-use ctxhelp;
+eval { require ctxhelp };
use log;
@@ -31,14 +31,14 @@ my ($opt, $idlabel) = @ARGV;
-my ($instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel);
+my ($instpath, $ancpath, $package) = eval { ctxhelp::path2help($opt, $idlabel) };
if (! -e $instpath) {
system('/usr/sbin/drakhelp_inst', $package);
}
if (! -e $instpath) {
#- trying again, asking for the english entry
- ($instpath, $ancpath, my $package2) = ctxhelp::path2help($opt, $idlabel, 'en');
+ ($instpath, $ancpath, my $package2) = eval { ctxhelp::path2help($opt, $idlabel, 'en') };
if (! -e $instpath && $package ne $package2) {
system("/usr/sbin/drakhelp_inst $package2");
}