[svn:parrot] r46657 - branches/ops_pct/t

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat May 15 12:20:46 2010
New Revision: 46657
URL: https://trac.parrot.org/parrot/changeset/46657

Log:
fix, retrieve the SVN branch name

Modified:
   branches/ops_pct/t/harness.pir

Modified: branches/ops_pct/t/harness.pir
==============================================================================
--- branches/ops_pct/t/harness.pir	Sat May 15 10:41:18 2010	(r46656)
+++ branches/ops_pct/t/harness.pir	Sat May 15 12:20:46 2010	(r46657)
@@ -297,7 +297,7 @@
     $I1 = index $S0, '/branches/'
     unless $I1 >= 0 goto L2
     $I1 += 10
-    $I2 = find_not_cclass .CCLASS_WHITESPACE, $S0, $I1, $I0
+    $I2 = find_cclass .CCLASS_WHITESPACE, $S0, $I1, $I0
     $I3 = $I2 - $I1
     $S1 = substr $S0, $I1, $I3
   L2: