diff options
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/drakhelp | 6 |
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"); } |