[svn:parrot] r40786 - trunk/compilers/pge/PGE

[pmichaud at svn.parrot.org]

Author: pmichaud
Date: Tue Aug 25 15:36:00 2009
New Revision: 40786
URL: https://trac.parrot.org/parrot/changeset/40786

Log:
[pge]  Fix .orig method on Match objects (RT #68680).

Modified:
   trunk/compilers/pge/PGE/Match.pir

Modified: trunk/compilers/pge/PGE/Match.pir
==============================================================================
--- trunk/compilers/pge/PGE/Match.pir	Tue Aug 25 14:53:11 2009	(r40785)
+++ trunk/compilers/pge/PGE/Match.pir	Tue Aug 25 15:36:00 2009	(r40786)
@@ -243,7 +243,7 @@
 =cut
 
 .sub 'orig' :method
-    $P0 = getattribute self, '$!target'
+    $P0 = getattribute self, '$.target'
     .return ($P0)
 .end