diff options
-rwxr-xr-x | src/mum | 22 |
1 files changed, 11 insertions, 11 deletions
@@ -17,27 +17,27 @@ my @range; # range (one/two references) our %ref; # current reference my $d = qr{ (?(DEFINE) - (?<range> (?{ @range = () }) + (?<range> (?{ @range = () }) ( (?&ref) | (?&ref),(?&ref) | (?&grep) ) - (?{ push @range, \%ref }) + (?{ push @range, \%ref }) ) - (?<ref> ( (\d+) (?{ local %ref = (line => $^N) }) - | (\.|\$) (?{ local %ref = (spec => $^N) }) - | ' ([a-z]) (?{ local %ref = (mark => $^N) }) - | (?&next) (?{ local %ref = (next => $^R) }) - | (?&prev) (?{ local %ref = (prev => $^R) }) + (?<ref> ( (\d+) (?{ local %ref = (line => $^N) }) + | (\.|\$) (?{ local %ref = (spec => $^N) }) + | ' ([a-z]) (?{ local %ref = (mark => $^N) }) + | (?&next) (?{ local %ref = (next => $^R) }) + | (?&prev) (?{ local %ref = (prev => $^R) }) ) - ( ([+-] \d+) (?{ local %ref = (%ref, plus => 0+$^N) }) + ( ([+-] \d+) (?{ local %ref = (%ref, plus => 0+$^N) }) )? ) - (?<grep> g((?&next)) (?{ local %ref = (grep => $^R) }) + (?<grep> g((?&next)) (?{ local %ref = (grep => $^R) }) ) - (?<next> /(([^/\\]++ | \\.)*+)/ (?{ $^N }) + (?<next> /(([^/\\]++ | \\.)*+)/ (?{ $^N }) ) - (?<prev> \?(([^?\\]++ | \\.)*+)\? (?{ $^N }) + (?<prev> \?(([^?\\]++ | \\.)*+)\? (?{ $^N }) ) ) }x; |