Browse files

[rx.t] :Perl5 goes outside of // for now

git-svn-id: http://svn.pugscode.org/pugs@28661 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information...
1 parent a7d53b3 commit 00cdcdf94c686c71ff8e9767ad08218b88ed2025 lwall committed Oct 8, 2009
Showing with 1 addition and 1 deletion.
  1. +1 −1 S05-mass/rx.t
View
2 S05-mass/rx.t
@@ -1587,7 +1587,7 @@ ok ('dog := spot' ~~ /:s::(\w+) ':=' (\S+)/) && matchcheck($/, q/mob 1: <spot @
#### :perl5 \A.*? bcd\Q$\E..\z a bcd$ef y perl5 syntax (:perl5)
#?pugs todo 'feature'
#?rakudo skip 'parse error'
-ok 'a bcd$ef' ~~ /:Perl5 \A.*? bcd\Q$\E..\z/, 'perl5 syntax (:Perl5)';
+ok 'a bcd$ef' ~~ m:Perl5/\A.*? bcd\Q$\E..\z/, 'perl5 syntax (:Perl5)';
#### :x(6) \d 123456 y repetition (:x)
#?pugs todo 'feature'

0 comments on commit 00cdcdf

Please sign in to comment.