Fix negated zero-width enumcharlist at end of string (fixes issue #9 …

…on github). Discovered by moritz++.
perl6 · Sep 17, 2010 · c9a989b · c9a989b
1 parent 8009d57
commit c9a989b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/src/PAST/Compiler-Regex.pir b/src/PAST/Compiler-Regex.pir
@@ -747,7 +747,9 @@ character list.
 
     ops.'push_pirop'('inline', negate, subtype, 'inline'=>'  # rx enumcharlist negate=%0 %1')
 
+    if zerowidth goto skip_zero_1 
     ops.'push_pirop'('ge', pos, eos, fail)
+  skip_zero_1:
     ops.'push_pirop'('sub', '$I10', pos, off)
     ops.'push_pirop'('substr', '$S10', tgt, '$I10', 1)
     ops.'push_pirop'('index', '$I11', charlist, '$S10')

diff --git a/t/p6regex/rx_charclass b/t/p6regex/rx_charclass
@@ -80,4 +80,6 @@
 <[A..Z0..9]>		abcdef		n	two enumerated ranges
 <[A..Z0..9]>		abcDef		y	two enumerated ranges
 
+abc <![d]>		abc		y	negated charclass at end of string (issue #9)
+
 ## vim: noexpandtab tabstop=4 shiftwidth=4