Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[QRegex] fix matching of <:L> past end of string

Fixes RT #117889
  • Loading branch information...
commit b4ad9fc9c686bbc70476e9ca8b5551b81365fb17 1 parent cdbd822
Moritz Lenz authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  src/vm/parrot/QAST/Compiler.nqp
View
1  src/vm/parrot/QAST/Compiler.nqp
@@ -1572,6 +1572,7 @@ class QAST::Compiler is HLL::Compiler {
method uniprop($node) {
my $ops := self.post_new('Ops', :result(%*REG<cur>));
my $cmpop := $node.negate ?? 'ne' !! 'eq';
+ $ops.push_pirop('ge', %*REG<pos>, %*REG<eos>, %*REG<fail>);
$ops.push_pirop('assign', '$S10', '"' ~ $node[0] ~ '"');
$ops.push_pirop('is_uprop', '$I11', '$S10', %*REG<tgt>, %*REG<pos>);
$ops.push_pirop($cmpop, '$I11', 0, %*REG<fail>);
Please sign in to comment.
Something went wrong with that request. Please try again.