[svn:parrot] r35921 - trunk/examples/pir

Author: julianalbo
Date: Fri Jan 23 12:49:18 2009
New Revision: 35921

Modified:
   trunk/examples/pir/pirric.pir

Log:
pirric: look for global namespaces when no local found

Modified: trunk/examples/pir/pirric.pir
==============================================================================
--- trunk/examples/pir/pirric.pir	(original)
+++ trunk/examples/pir/pirric.pir	Fri Jan 23 12:49:18 2009
@@ -954,6 +954,9 @@
     $P0 = get_namespace token
     $I0 = defined $P0
     if $I0 goto spaced
+    $P0 = get_root_namespace token
+    $I0 = defined $P0
+    if $I0 goto spaced
 
     $P1 = tokenizer.'get'()
     $S1 = $P1
@@ -966,7 +969,10 @@
     args = self.'get_args'(tokenizer)
     $P9 = var(args)
     .return($P9)
+
 spaced:
+    # say "namespace"
+
     $P1 = tokenizer.'get'()
     ne $P1, '.', fail
     $P1 = tokenizer.'get'()