[gnugo-devel] Regression patch (worm_stones)

[Trevor Morris]

http://www.public32.com/games/go/trevor_1_24.1

 - Corrects problem with handling of newly patched worm_stones.


Index: regression/regress.pl
===================================================================
RCS file: /cvsroot/gnugo/gnugo/regression/regress.pl,v
retrieving revision 1.19
diff -u -r1.19 regress.pl
--- regression/regress.pl       19 Jan 2002 04:31:16 -0000      1.19
+++ regression/regress.pl       29 Jan 2002 14:30:53 -0000
@@ -657,12 +657,14 @@
       }
       while ($iline) {
         $iline = <$goprog_out>;
-        $iline =~ s/^[=]\s*//;
-        $iline =~ s/\s*$//mg;
-        foreach (split (/\s+/,$iline)) {
+        my $splitline = $iline;
+        $splitline =~ s/^[=]\s*//;
+        $splitline =~ s/\s*$//mg;
+        foreach (split (/\s+/,$splitline)) {
           $stones{$_} =";color_letter=" . $cur_color_letter.
                       ";";
         }
+        $iline =~ s/\s*$//mg;
       }
     }
   }