[svn:parrot] r49387 - trunk/compilers/pct/src/POST

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Thu Sep 30 16:09:35 2010
New Revision: 49387
URL: https://trac.parrot.org/parrot/changeset/49387

Log:
[pct]  Revert another retrogression introduced by r49325.

Modified:
   trunk/compilers/pct/src/POST/Compiler.pir

Modified: trunk/compilers/pct/src/POST/Compiler.pir
==============================================================================
--- trunk/compilers/pct/src/POST/Compiler.pir	Wed Sep 29 21:29:26 2010	(r49386)
+++ trunk/compilers/pct/src/POST/Compiler.pir	Thu Sep 30 16:09:35 2010	(r49387)
@@ -130,9 +130,8 @@
     pos = cpost['pos']
     if null pos goto done_subline
     source = cpost['source']
-    $I0 = can source, 'lineof'
-    unless $I0 goto done_subline
-    line = source.'lineof'(pos)
+    if null source goto done_subline
+    line = self.'lineof'(source, pos, 'cache'=>1)
     inc line
   done_subline:
     self.'pir'(cpost)