Author: pmichaud
Date: Wed May 7 16:50:05 2008
New Revision: 27386
Modified:
trunk/compilers/pge/PGE/Perl6Regex.pir
Log:
[pge]:
* Go ahead and allow the <foo: "bar"> syntax as well as <foo: 'bar'>.
It won't yet interpolate like normal double-quotes would in Perl 6,
but it lets us get rid of some backslashes and is more dwimmy.
Modified: trunk/compilers/pge/PGE/Perl6Regex.pir
==============================================================================
--- trunk/compilers/pge/PGE/Perl6Regex.pir (original)
+++ trunk/compilers/pge/PGE/Perl6Regex.pir Wed May 7 16:50:05 2008
@@ -782,7 +782,9 @@
textarg = ''
closedelim = '>'
$S0 = substr target, pos, 1
+ if $S0 == '"' goto subrule_text_quote
if $S0 != "'" goto subrule_text_loop
+ subrule_text_quote:
closedelim = $S0
inc pos
subrule_text_loop:
