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

[svn:parrot] r34662 - trunk/runtime/parrot/library

From:
coke
Date:
December 30, 2008 12:12
Subject:
[svn:parrot] r34662 - trunk/runtime/parrot/library
Message ID:
20081230201245.A304ACB9FA@x12.develooper.com
Author: coke
Date: Tue Dec 30 12:12:44 2008
New Revision: 34662

Modified:
   trunk/runtime/parrot/library/yaml_dumper.pir

Log:
Avoid [DEPRCATED] opcodes. yaml tests still pass.


Modified: trunk/runtime/parrot/library/yaml_dumper.pir
==============================================================================
--- trunk/runtime/parrot/library/yaml_dumper.pir	(original)
+++ trunk/runtime/parrot/library/yaml_dumper.pir	Tue Dec 30 12:12:44 2008
@@ -162,13 +162,13 @@
 TYPE_OK:
 
     errorsoff .PARROT_ERRORS_GLOBALS_FLAG
-    find_global self, "YAML::Dumper", "global"
+    self = get_global ['YAML::Dumper'], 'global'
     errorson .PARROT_ERRORS_GLOBALS_FLAG
     if null self goto create_type
 
 create_type:
     new self, "YAML::Dumper"
-    store_global "YAML::Dumper", "global", self
+    set_global ['YAML::Dumper'], 'global', self
 
 END:
     .return( self )



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