Permalink
Browse files

:ss implies :s; allow :samespace and :ss on s///

  • Loading branch information...
1 parent ebc730c commit fa7fca745c1e7db4be28d216cbd5b9f02de4235a @moritz moritz committed Oct 6, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/Perl6/Actions.pm
View
4 src/Perl6/Actions.pm
@@ -4699,17 +4699,19 @@ class Perl6::Actions is HLL::Actions {
exhaustive => 'ex',
Perl5 => 'P5',
samecase => 'ii',
+ samespace => 'ss',
);
my %REGEX_ADVERB_IMPLIES := hash(
ii => 'i',
+ ss => 's',
);
INIT {
my $mods := 'i ignorecase s sigspace r ratchet Perl5 P5';
for nqp::split(' ', $mods) {
%SHARED_ALLOWED_ADVERBS{$_} := 1;
}
- $mods := 'g global ii samecase x c continue p pos nth th st nd rd';
+ $mods := 'g global ii samecase ss samespace x c continue p pos nth th st nd rd';
for nqp::split(' ', $mods) {
%SUBST_ALLOWED_ADVERBS{$_} := 1;
}

0 comments on commit fa7fca7

Please sign in to comment.