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

[particle]

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