don't move the cursor for zerowidth match of \r\n

Fixes #120511
Raku · Nov 11, 2013 · 4df65de · 4df65de
1 parent f8a27c0
commit 4df65de
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/vm/parrot/QAST/Compiler.nqp b/src/vm/parrot/QAST/Compiler.nqp
@@ -1379,8 +1379,8 @@ class QAST::Compiler is HLL::Compiler {
             if $cclass eq '.CCLASS_NEWLINE' {
                 $ops.push_pirop('substr', '$S10', %*REG<tgt>, %*REG<pos>, 2);
                 $ops.push_pirop('iseq', '$I11', '$S10', '"\r\n"');
-                $ops.push_pirop('add', %*REG<pos>, '$I11');
-            } 
+                $ops.push_pirop('add', %*REG<pos>, '$I11') unless $node.subtype eq 'zerowidth';
+            }
         }
         $ops.push_pirop('add', %*REG<pos>, 1) unless $node.subtype eq 'zerowidth';
         $ops;