X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-fullcricket.pl;h=1823624e7bd25360cffe9ae65b9a82cb2b2b85bb;hb=31361cd72433476cc5f87b28e68d3b2f4da129a9;hp=743909c7dacef9f779a2133a1daceebf18b7a4e6;hpb=e3c49d7d892385bb8498cb1ef82c3e65df74be48;p=svn42.git

diff --git a/dart/dart-fullcricket.pl b/dart/dart-fullcricket.pl
index 743909c..1823624 100755
--- a/dart/dart-fullcricket.pl
+++ b/dart/dart-fullcricket.pl
@@ -6,12 +6,12 @@ use strict;
 #my $termios = new POSIX::Termios;
 #$termios->getattr;
 #my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
-my $sieb=0;
+my $sieb=1;
 my @prim = qw / 2 3 5 7 11 13 17 19 /;
 
 sub gueltig{
     my ($zahl,$mult) = @_;
-    return 1;
+    return $zahl>1;
   };