diff options
| author | Thierry Vignaud <tv@mageia.org> | 2011-12-10 06:50:50 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2011-12-10 06:50:50 +0000 |
| commit | 342bab9347fa60978e5b7456bf8cef463eca4085 (patch) | |
| tree | 836927fb1a4aaaf1594f78abb416c7d7f204e38e /perl-install | |
| parent | bfeb06f0e4a8f49355ee61b39aa2ab3e77ecbc06 (diff) | |
| download | drakx-backup-do-not-use-342bab9347fa60978e5b7456bf8cef463eca4085.tar drakx-backup-do-not-use-342bab9347fa60978e5b7456bf8cef463eca4085.tar.gz drakx-backup-do-not-use-342bab9347fa60978e5b7456bf8cef463eca4085.tar.bz2 drakx-backup-do-not-use-342bab9347fa60978e5b7456bf8cef463eca4085.tar.xz drakx-backup-do-not-use-342bab9347fa60978e5b7456bf8cef463eca4085.zip | |
drakhelp: make it work somewhat despite lack of doc
Diffstat (limited to 'perl-install')
| -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"); } |