summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:26:18 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:26:18 +0000
commitc2099607677f6b70017c8e73e757339d3359ee5c (patch)
tree7cd81198cb3c9f46f4817eed8c0950386fefa6e1 /perl-install/fs.pm
parentaf9725f61ff86333b9d8adde19cc562b7a633aa6 (diff)
downloaddrakx-c2099607677f6b70017c8e73e757339d3359ee5c.tar
drakx-c2099607677f6b70017c8e73e757339d3359ee5c.tar.gz
drakx-c2099607677f6b70017c8e73e757339d3359ee5c.tar.bz2
drakx-c2099607677f6b70017c8e73e757339d3359ee5c.tar.xz
drakx-c2099607677f6b70017c8e73e757339d3359ee5c.zip
perl_checker fix
Diffstat (limited to 'perl-install/fs.pm')
0 files changed, 0 insertions, 0 deletions
generated by cgit v1.2.1 (git 2.21.0) at 2024-08-21 06:16:26 +0000
dth: 50.0%;'/>
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");
}
generated by cgit v1.2.1 (git 2.21.0) at 2024-08-21 06:16:26 +0000