refacor adverb application and checking into a separate method - it w…

…ill be reused for m//, hopefully

src/Perl6/Actions.pm

@@ -2697,6 +2697,16 @@ INIT {
     }
 }
 
+method handle_and_check_adverbs($/, %adverbs, $past, $what) {
+    for $<quotepair> {
+        pir::printerr__vS("Found adverb " ~ $_.ast.named ~ "\n");
+        unless %adverbs{$_.ast.named} {
+            $/.CURSOR.panic("Adverb '" ~ $_.ast.named ~ "' not allowed on " ~ $what);
+        }
+        $past.push($_.ast);
+    }
+}
+
 method quote:sym<s>($/) {
     # Build the regex.
     my $regex_ast := Regex::P6Regex::Actions::buildsub($<p6regex>.ast);
@@ -2718,12 +2728,7 @@ method quote:sym<s>($/) {
         PAST::Var.new( :name('$_'), :scope('lexical') ),
         $regex, $closure
     );
-    for $<quotepair> {
-        unless %SUBST_ALLOWED_ADVERBS{$_.ast.named} {
-            $/.CURSOR.panic("Adverb '" ~ $_.ast.named ~ "' not allowed on subsitution");
-        }
-        $past.push($_.ast);
-    }
+    self.handle_and_check_adverbs($/, %SUBST_ALLOWED_ADVERBS, $past, 'substitution');
 
     $past := PAST::Op.new(
         :node($/),