[svn:parrot] r33463 - trunk/languages/perl6/src/parser

Author: moritz
Date: Wed Dec  3 13:02:18 2008
New Revision: 33463

Modified:
   trunk/languages/perl6/src/parser/actions.pm

Log:
[rakudo] make 'where /regex/' subset types work. riffraff++. Closes RT #60976
Patch courtesy by Gabriele Renzi <rff.rff at gmail.com>


Modified: trunk/languages/perl6/src/parser/actions.pm
==============================================================================
--- trunk/languages/perl6/src/parser/actions.pm	(original)
+++ trunk/languages/perl6/src/parser/actions.pm	Wed Dec  3 13:02:18 2008
@@ -2976,7 +2976,7 @@
 method type_declarator($/) {
     # We need a block containing the constraint condition.
     my $past := $( $<EXPR> );
-    if !$past.isa(PAST::Block) {
+    if (!$past.isa(PAST::Block) || $past.compiler() eq 'PGE::Perl6Regex') {
         # Make block with a smart match of the the expression as its contents.
         $past := PAST::Block.new(
             PAST::Stmts.new(

• [svn:parrot] r33463 - trunk/languages/perl6/src/parser by moritz