From 3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 27 Jan 2003 07:35:57 +0000
Subject: - strict mode - we need at least 1 argument, and only one

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

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp
index 39c3255f6..dde416209 100644
--- a/perl-install/standalone/drakhelp
+++ b/perl-install/standalone/drakhelp
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+use strict;
+use diagnostics;
 use lib qw(/usr/lib/libDrakX);
 
 use standalone;     #- warning, standalone must be loaded very first, for 'explanations'
@@ -9,6 +11,8 @@ use common;
 use lang;
 use any;
 
+die "Usage: drakhelp <help_path>" if @ARGV != 1;
+
 my $in = interactive->vnew;
 
 my $lang = lang::lang2LANG(lang::read('',$>)) || 'en';
-- 
cgit v1.2.1