diff options
| author | Jim Meyering <jim@meyering.net> | 2001-02-06 09:56:22 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 2001-02-06 09:56:22 +0000 |
| commit | 30323f5739964fa414025fd112b608a590f048ef (patch) | |
| tree | 87cf01a04eb078445fbfa8436db1db1dd00df7ef /src/wheel-gen.pl | |
| parent | 1de223c22657e4fa10b331dd4ca6943248b2bb03 (diff) | |
| download | coreutils-30323f5739964fa414025fd112b608a590f048ef.tar.xz | |
require 1 argument
Diffstat (limited to 'src/wheel-gen.pl')
| -rwxr-xr-x | src/wheel-gen.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl index 27b952219..be03a6e3b 100755 --- a/src/wheel-gen.pl +++ b/src/wheel-gen.pl @@ -40,6 +40,9 @@ sub is_prime ($) } { + @ARGV == 1 + or die "$program_name: missing argument\n"; + my $wheel_size = $ARGV[0]; my @primes = (2); |