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(
