diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 07:35:57 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-01-27 07:35:57 +0000 |
| commit | 3730934e00cf265b0d2fcd40f3b1d7d3fee7fdc8 (patch) | |
| tree | ee9e8c61a3afee67900dc2e3f1f46f8d40873acc /perl-install/standalone | |
| parent | 5c4358d842f57bd591613d115982c3f54f2fbecd (diff) | |
| download | drakx-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/drakhelp | 4 |
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'; |