# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1319918832 -7200
# Node ID 51950b0c040d1e6d4905b8d7e5fe0532f8b70764
# Parent  6a11b95c49040ff2b1feb0c9ea2edfa17166a4a3
do more checking of input

diff -r 6a11b95c4904 -r 51950b0c040d prime
--- a/prime	Sat Oct 29 21:59:16 2011 +0200
+++ b/prime	Sat Oct 29 22:07:12 2011 +0200
@@ -9,11 +9,14 @@
 
 my $ME = basename $0;
 
-die "$ME: Sorry, need the number\n"
+die "Usage: $ME {number}\n"
   if not @ARGV;
 
 my $number = $ARGV[0];
 
+die "$ME: Sorry, number >= 2 expected!\n"
+  if $number < 2;
+
 #1. find all divisors of $number
 my @divisors = findDivisors($number);
 print "Die Teiler von $number sind: @divisors\n";