develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33576 - trunk/runtime/parrot/library/PGE

From:
pmichaud
Date:
December 6, 2008 13:41
Subject:
[svn:parrot] r33576 - trunk/runtime/parrot/library/PGE
Message ID:
20081206214140.978E9CB9AF@x12.develooper.com
Author: pmichaud
Date: Sat Dec  6 13:41:39 2008
New Revision: 33576

Modified:
   trunk/runtime/parrot/library/PGE/Hs.pir

Log:
[pge]:  Update PGE/Hs.pir so it doesn't directly access private @!list


Modified: trunk/runtime/parrot/library/PGE/Hs.pir
==============================================================================
--- trunk/runtime/parrot/library/PGE/Hs.pir	(original)
+++ trunk/runtime/parrot/library/PGE/Hs.pir	Sat Dec  6 13:41:39 2008
@@ -51,8 +51,6 @@
 .namespace [ "PGE";"Hs" ]
 
 .const string PGE_FAIL = "PGE_Fail"
-.const string PGE_SUB_POS = "@!list"
-.const string PGE_SUB_NAMED = "%!hash"
 
 .sub "__onload" :load
     .local pmc load
@@ -181,8 +179,8 @@
     out .= " ["
 
   subpats:
-    capt = getattribute self, PGE_SUB_POS
-    if_null capt, subrules
+    capt = self.'list'()
+    unless capt goto subrules
     spi = 0
     spc = elements capt
     goto subpats_body



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About