Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
[GGE::Perl6Regex] aliases cause CGroups to exist
These should not be 'scopes', however, since they're not based in the world
of syntax. Stand by for next commit.
  • Loading branch information
Carl Masak committed Jan 11, 2010
1 parent 0b7e402 commit 6d10898
Showing 1 changed file with 10 additions and 1 deletion.
11 changes: 10 additions & 1 deletion lib/GGE/Perl6Regex.pm
Expand Up @@ -589,6 +589,15 @@ class GGE::Perl6Regex {
$exp1 = perl6exp($exp1, %pad);
return $exp1;
}
die "We don't handle the other cases yet";
if $exp1 ~~ GGE::Exp::Quant {
die "We don't handle that case yet";
}
my $cexp = GGE::Exp::CGroup.new($exp);
$cexp.from = $exp.from;
$cexp.to = $exp.to;
$cexp[0] = $exp1;
$cexp.hash-access('cname') = $cname;
$cexp = perl6exp($cexp, %pad);
return $cexp;
}
}

0 comments on commit 6d10898

Please sign in to comment.