develooper Front page | perl.cvs.parrot | Postings from January 2009

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

From:
julianalbo
Date:
January 23, 2009 12:49
Subject:
[svn:parrot] r35921 - trunk/examples/pir
Message ID:
20090123204919.6BCF8CB9AE@x12.develooper.com
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'()



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