diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-02-05 11:54:56 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-02-05 11:54:56 +0000 |
| commit | 5def8a49fdf652af9e53ef815bd494445c1d75e7 (patch) | |
| tree | 40caf30618f9f27865954e8a28fc753c1ce20c3d | |
| parent | 967a83f1474941d6a7328fcac33f81bd066a8d5e (diff) | |
| download | drakx-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.pm | 2 |
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); |