From 30323f5739964fa414025fd112b608a590f048ef Mon Sep 17 00:00:00 2001
From: Jim Meyering <jim@meyering.net>
Date: Tue, 6 Feb 2001 09:56:22 +0000
Subject: require 1 argument

---
 src/wheel-gen.pl | 3 +++
 1 file changed, 3 insertions(+)

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);
-- 
cgit v1.2.3-54-g00ecf