Partially fixed a bug in the test suite that led to test runs randomly failing.

[invirt/third/libt4.git] / rsm_tester.pl

diff --git a/rsm_tester.pl b/rsm_tester.pl
index c99c66f..3d94744 100755 (executable)
--- a/rsm_tester.pl
+++ b/rsm_tester.pl
@@ -67,7 +67,7 @@ sub randports {
   my $num = shift;
   my @p = ();
   for( my $i = 0; $i < $num; $i++ ) {
   my $num = shift;
   my @p = ();
   for( my $i = 0; $i < $num; $i++ ) {

-    push( @p, int(rand(54000))+10000 );
+    push( @p, int(rand(54000/2))*2+10000 );

   }
   my @sp = sort { $a <=> $b } @p;
   return @sp;
   }
   my @sp = sort { $a <=> $b } @p;
   return @sp;