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

[svn:parrot] r33680 - in trunk/runtime/parrot/library/File: . Spec

From:
particle
Date:
December 8, 2008 17:06
Subject:
[svn:parrot] r33680 - in trunk/runtime/parrot/library/File: . Spec
Message ID:
20081209010615.07A06CB9AF@x12.develooper.com
Author: particle
Date: Mon Dec  8 17:06:14 2008
New Revision: 33680

Modified:
   trunk/runtime/parrot/library/File/Spec.pir
   trunk/runtime/parrot/library/File/Spec/Win32.pir

Log:
[library] convert deprecated 'global' calls

Modified: trunk/runtime/parrot/library/File/Spec.pir
==============================================================================
--- trunk/runtime/parrot/library/File/Spec.pir	(original)
+++ trunk/runtime/parrot/library/File/Spec.pir	Mon Dec  8 17:06:14 2008
@@ -97,7 +97,7 @@
     ## set modules['dos'], 'OS2'
     ## set modules['cygwin'], 'Cygwin'
 
-    store_global '_modules', modules
+    set_global '_modules', modules
 .end
 
 
@@ -107,7 +107,7 @@
     .local pmc modules
     modules= new 'Hash'
 
-    modules= find_global '_modules'
+    modules= get_global '_modules'
 
     .local string module
     module= modules[ osname ]

Modified: trunk/runtime/parrot/library/File/Spec/Win32.pir
==============================================================================
--- trunk/runtime/parrot/library/File/Spec/Win32.pir	(original)
+++ trunk/runtime/parrot/library/File/Spec/Win32.pir	Mon Dec  8 17:06:14 2008
@@ -14,7 +14,7 @@
     .local pmc tmpdir
     tmpdir= new 'ResizableStringArray'
 
-    store_global '_tmpdir', tmpdir
+    set_global '_tmpdir', tmpdir
 .end
 
 
@@ -73,7 +73,7 @@
     push tmpdir, '/'
 
 store:
-    store_global '_tmpdir', tmpdir
+    set_global '_tmpdir', tmpdir
 return_cached:
     .return( tmpdir )
 .end
@@ -552,7 +552,7 @@
 
 .sub 'VERSION' :method
     .local pmc version
-    version= global 'VERSION'
+    version= get_global 'VERSION'
     .return( version )
 .end
 



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