Permalink
Browse files

:ii regex adverb implies :i

  • Loading branch information...
1 parent fb11f13 commit 321d57bc397b8c050715c19c5da538cf895af9b2 @moritz moritz committed Oct 5, 2012
Showing with 8 additions and 0 deletions.
  1. +8 −0 src/Perl6/Actions.pm
View
@@ -4698,6 +4698,10 @@ class Perl6::Actions is HLL::Actions {
overlap => 'ov',
exhaustive => 'ex',
Perl5 => 'P5',
+ samecase => 'ii',
+ );
+ my %REGEX_ADVERB_IMPLIES := hash(
+ ii => 'i',
);
INIT {
my $mods := 'i ignorecase s sigspace r ratchet Perl5 P5';
@@ -4764,6 +4768,10 @@ class Perl6::Actions is HLL::Actions {
}
$key := %REGEX_ADVERBS_CANONICAL{$key} // $key;
%*RX{$key} := $value;
+ if %REGEX_ADVERB_IMPLIES{$key} {
+ %*RX{%REGEX_ADVERB_IMPLIES{$key}} := $value
+ }
+ $value;
}
method quote:sym<apos>($/) { make $<quote_EXPR>.ast; }

0 comments on commit 321d57b

Please sign in to comment.