summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2004-08-11 07:16:40 +0000
committerDaouda Lo <daouda@mandriva.com>2004-08-11 07:16:40 +0000
commit1a4af4c8181a56f31d8d113f5b2bba68829199d0 (patch)
tree7747452a6736da9b1859f24c2ded8bbf1b3e5096
parent5958cf1a7d33507f531c6322dd8f2eac903ae1d5 (diff)
downloaddrakx-1a4af4c8181a56f31d8d113f5b2bba68829199d0.tar
drakx-1a4af4c8181a56f31d8d113f5b2bba68829199d0.tar.gz
drakx-1a4af4c8181a56f31d8d113f5b2bba68829199d0.tar.bz2
drakx-1a4af4c8181a56f31d8d113f5b2bba68829199d0.tar.xz
drakx-1a4af4c8181a56f31d8d113f5b2bba68829199d0.zip
- perl_checker fixes
-rw-r--r--perl-install/standalone/drakhelp4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp
index 496aad561..01cba5717 100644
--- a/perl-install/standalone/drakhelp
+++ b/perl-install/standalone/drakhelp
@@ -13,7 +13,7 @@ use ctxhelp;
use log;
-sub usage {
+sub usage() {
print STDERR N(" drakhelp 0.1
Copyright (C) 2003-2004 Mandrakesoft.
This is free software and may be redistributed under the terms of the GNU GPL.
@@ -29,7 +29,7 @@ my ($opt, $idlabel) = @ARGV;
@ARGV == 2 && ($opt eq '--id' || $opt eq '--doc' || $opt eq '--help') or usage();
my $in = interactive->vnew;
-my ($lg, $instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel);
+my ($instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel);
-e $instpath or system("/usr/sbin/drakhelp_inst $package");
-e $instpath or $in->ask_warn('Mandrake Help Center', N("%s cannot be displayed \n. No Help entry of this type\n", $instpath));