Quotes should respect :i

Also substituted a Q:PIR block with pir::clone - no functional changes here.
perl6 · Jul 27, 2010 · da0c21f · da0c21f
1 parent 96bc191
commit da0c21f
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/Regex/P6Regex/Actions.pm b/src/Regex/P6Regex/Actions.pm
@@ -30,10 +30,7 @@ method TOP($/) {
 method nibbler($/, $key?) {
     if $key eq 'open' {
         my %old := @MODIFIERS[0];
-        my %new := Q:PIR {
-                       $P0 = find_lex '%old'
-                       %r = clone $P0
-                   };
+        my %new := pir::clone__pp(%old);
         @MODIFIERS.unshift(%new);
         return 1;
     }
@@ -167,13 +164,15 @@ method metachar:sym<'>($/) {
     my $quote := $<quote_EXPR>.ast;
     if PAST::Val.ACCEPTS($quote) { $quote := $quote.value; }
     my $past := PAST::Regex.new( $quote, :pasttype('literal'), :node($/) );
+    if @MODIFIERS[0]<i> { $past.subtype('ignorecase'); }
     make $past;
 }
 
 method metachar:sym<">($/) {
     my $quote := $<quote_EXPR>.ast;
     if PAST::Val.ACCEPTS($quote) { $quote := $quote.value; }
     my $past := PAST::Regex.new( $quote, :pasttype('literal'), :node($/) );
+    if @MODIFIERS[0]<i> { $past.subtype('ignorecase'); }
     make $past;
 }