From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 09:56:22 +0000 (+0000)
Subject: require 1 argument
X-Git-Tag: FILEUTILS-4_0_39~9
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=30323f5739964fa414025fd112b608a590f048ef;p=thirdparty%2Fcoreutils.git

require 1 argument
---

diff --git a/src/wheel-gen.pl b/src/wheel-gen.pl
index 27b9522197..be03a6e3b0 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);