drakhelp: make it work somewhat despite lack of doc

1 files changed, 3 insertions, 3 deletions

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");
     }