Fix protoregex bug with classnames beginning with Q.

perl6 · Jul 19, 2010 · 5725781 · 5725781
1 parent 6aedfc2
commit 5725781
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/src/Regex/Cursor-protoregex-peek.pir b/src/Regex/Cursor-protoregex-peek.pir
@@ -74,7 +74,7 @@ Perform a match for protoregex C<name>.
     rx = shift rx_it
     rxaddr = get_addr rx
     $P0 = mcalled[rxaddr]
-    unless null $P0 goto token_next
+    unless null $P0 goto cand_loop
     result = self.rx()
     mcalled[rxaddr] = mcalled
     if result goto done

diff --git a/t/nqp/25-class.t b/t/nqp/25-class.t
@@ -2,7 +2,7 @@
 
 # class
 
-plan(1);
+plan(2);
 
 class XYZ {
     method foo($x) {
@@ -13,3 +13,17 @@ class XYZ {
 my $xyz := XYZ.new();
 
 $xyz.foo('ok 1');
+
+
+# test that a class can start with Q
+
+class QRS {
+    method foo($x) {
+        say($x);
+    }
+}
+
+my $qrs := QRS.new();
+
+$qrs.foo('ok 2');
+