From 5bb7eb131773abd9e642f83629528b4c4e706b2e Mon Sep 17 00:00:00 2001
From: Peter Iannucci <iannucci@mit.edu>
Date: Tue, 1 Oct 2013 21:42:40 -0400
Subject: [PATCH] Partially fixed a bug in the test suite that led to test
 runs randomly failing.

---
 rsm_tester.pl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/rsm_tester.pl b/rsm_tester.pl
index c99c66f..3d94744 100755
--- 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++ ) {
-    push( @p, int(rand(54000))+10000 );
+    push( @p, int(rand(54000/2))*2+10000 );
   }
   my @sp = sort { $a <=> $b } @p;
   return @sp;
-- 
1.7.9.5