Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 8c8d5ea1898fd659ca268f6882efa534191fa7bd 1 parent e4e732c
@jnthn jnthn authored
View
4 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);
}
View
4 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; }
View
2  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; }
Please sign in to comment.
Something went wrong with that request. Please try again.