Fix incorrect attr access spotted by moritz++.

perl6 · Jan 28, 2011 · 4ba2dc2 · 4ba2dc2
1 parent 94c8f60
commit 4ba2dc2
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Regex/Cursor-builtins.pir b/src/Regex/Cursor-builtins.pir
@@ -226,7 +226,8 @@ Regex::Cursor-builtins - builtin regexes for Cursor objects
     message .= ", couldn't find final "
     message .= goal
     message .= ' at line '
-    $P0 = getattribute self, '$!target'
+    $P0 = get_hll_global ['Regex'], 'Cursor'
+    $P0 = getattribute self, $P0, '$!target'
     $P1 = get_hll_global ['HLL'], 'Compiler'
     $I0 = self.'pos'()
     $I0 = $P1.'lineof'($P0, $I0)