From 1a4af4c8181a56f31d8d113f5b2bba68829199d0 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Wed, 11 Aug 2004 07:16:40 +0000
Subject: - perl_checker fixes

---
 perl-install/standalone/drakhelp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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));
-- 
cgit v1.2.1