summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-05 11:54:56 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-05 11:54:56 +0000
commit5def8a49fdf652af9e53ef815bd494445c1d75e7 (patch)
tree40caf30618f9f27865954e8a28fc753c1ce20c3d
parent967a83f1474941d6a7328fcac33f81bd066a8d5e (diff)
downloaddrakx-backup-do-not-use-5def8a49fdf652af9e53ef815bd494445c1d75e7.tar
drakx-backup-do-not-use-5def8a49fdf652af9e53ef815bd494445c1d75e7.tar.gz
drakx-backup-do-not-use-5def8a49fdf652af9e53ef815bd494445c1d75e7.tar.bz2
drakx-backup-do-not-use-5def8a49fdf652af9e53ef815bd494445c1d75e7.tar.xz
drakx-backup-do-not-use-5def8a49fdf652af9e53ef815bd494445c1d75e7.zip
(head_tail): fix usage
-rw-r--r--perl-install/commands.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/commands.pm b/perl-install/commands.pm
index 5e5cb3d03..0be485ec1 100644
--- a/perl-install/commands.pm
+++ b/perl-install/commands.pm
@@ -325,7 +325,7 @@ sub dd {
sub head_tail {
my ($h, $n) = getopts(\@_, qw(hn));
- $h || @_ > 1 + bool($n) and die "usage: $0 [-h] [-n lines] [<file>]\n";
+ $h || @_ < bool($n) and die "usage: $0 [-h] [-n lines] [<file>]\n";
$n = $n ? shift : 10;
local *F; @_ ? open(F, $_[0]) || die "error: can't open file $_[0]\n" : (*F = *STDIN);