summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-01-27 07:35:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-01-27 07:35:57 +0000
commit3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8 (patch)
treeee9e8c61a3afee67900dc2e3f1f46f8d40873acc /perl-install/standalone
parent5c4358d842f57bd591613d115982c3f54f2fbecd (diff)
downloaddrakx-3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8.tar
drakx-3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8.tar.gz
drakx-3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8.tar.bz2
drakx-3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8.tar.xz
drakx-3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8.zip
- strict mode
- we need at least 1 argument, and only one
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/drakhelp4
1 files changed, 4 insertions, 0 deletions
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';