Permalink
Browse files

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

Fixes RT #117889
  • Loading branch information...
moritz committed May 7, 2013
1 parent cdbd822 commit b4ad9fc9c686bbc70476e9ca8b5551b81365fb17
Showing with 1 addition and 0 deletions.
  1. +1 −0 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>);

0 comments on commit b4ad9fc

Please sign in to comment.