Use nqp::getlexdyn in place of pir:: op.

Author: jnthn

src/QRegex/Cursor.nqp

@@ -174,13 +174,13 @@ role NQPCursorRole is export {
     }
 
     method !reduce(str $name) {
-        my $actions := pir::find_dynamic_lex__Ps('$*ACTIONS');
+        my $actions := nqp::getlexdyn('$*ACTIONS');
         nqp::findmethod($actions, $name)($actions, self.MATCH)
             if !nqp::isnull($actions) && nqp::can($actions, $name);
     }
 
     method !reduce_with_match($name, $key, $match) {
-        my $actions := pir::find_dynamic_lex__Ps('$*ACTIONS');
+        my $actions := nqp::getlexdyn('$*ACTIONS');
         nqp::findmethod($actions, $name)($actions, $match, $key)
             if !nqp::isnull($actions) && nqp::can($actions, $name);
     }

src/QRegex/P5Regex/Grammar.nqp

@@ -46,7 +46,7 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {
     }
 
     token nibbler {
-        :my $OLDRX := pir::find_dynamic_lex__Ps('%*RX');
+        :my $OLDRX := nqp::getlexdyn('%*RX');
         :my %*RX;
         {
             for $OLDRX { %*RX{$_.key} := $_.value; }
@@ -134,7 +134,7 @@ grammar QRegex::P5Regex::Grammar is HLL::Grammar {
     token p5mod  { <[imsox]>* }
     token p5mods { <on=p5mod> [ '-' <off=p5mod> ]? }
     token p5assertion:sym<mod> {
-        :my %*OLDRX := pir::find_dynamic_lex__Ps('%*RX');
+        :my %*OLDRX := nqp::getlexdyn('%*RX');
         :my %*RX;
         {
             for %*OLDRX { %*RX{$_.key} := $_.value; }

src/QRegex/P6Regex/Grammar.nqp

@@ -68,7 +68,7 @@ grammar QRegex::P6Regex::Grammar is HLL::Grammar {
     }
 
     token nibbler {
-        :my $OLDRX := pir::find_dynamic_lex__Ps('%*RX');
+        :my $OLDRX := nqp::getlexdyn('%*RX');
         :my %*RX;
         {
             for $OLDRX { %*RX{$_.key} := $_.value; }