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

git-svn-id: http://svn.pugscode.org/pugs@28661 c213334d-75ef-0310-aa23-eaa082d1ae64
Raku · Oct 8, 2009 · 00cdcdf · 00cdcdf
1 parent a7d53b3
commit 00cdcdf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/S05-mass/rx.t b/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'