Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit fa7fca745c1e7db4be28d216cbd5b9f02de4235a 1 parent ebc730c
Moritz Lenz moritz authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/Perl6/Actions.pm
4 src/Perl6/Actions.pm
View
@@ -4699,9 +4699,11 @@ 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';
@@ -4709,7 +4711,7 @@ class Perl6::Actions is HLL::Actions {
%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;
}
Please sign in to comment.
Something went wrong with that request. Please try again.