perl.cvs.mod_parrot
[Top] [All Lists]

[svn:mod_parrot] r361 - mod_parrot/trunk/src

Subject: [svn:mod_parrot] r361 - mod_parrot/trunk/src
From: jhorwitz@xxxxxxxxxxxx
Date: Sat, 19 Jul 2008 12:19:35 -0700 (PDT)
Newsgroups: perl.cvs.mod_parrot

Author: jhorwitz
Date: Sat Jul 19 12:19:34 2008
New Revision: 361

Modified:
   mod_parrot/trunk/src/parrot_util.c

Log:
fix broken handling of NULL namespaces


Modified: mod_parrot/trunk/src/parrot_util.c
==============================================================================
--- mod_parrot/trunk/src/parrot_util.c  (original)
+++ mod_parrot/trunk/src/parrot_util.c  Sat Jul 19 12:19:34 2008
@@ -26,11 +26,20 @@
 {
     Parrot_PMC sub;
 
-    sub = Parrot_find_global_s(
-        interp,
-        namespace ? MAKE_PARROT_STRING(namespace) : NULL,
-        MAKE_PARROT_STRING(name)
-    );
+    if (namespace) {
+        sub = Parrot_find_global_s(
+            interp,
+            MAKE_PARROT_STRING(namespace),
+            MAKE_PARROT_STRING(name)
+        );
+    }
+    else {
+        Parrot_find_global_cur(
+            interp,
+            MAKE_PARROT_STRING(name)
+        );
+    }
+
     return(sub);
 }
 

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:mod_parrot] r361 - mod_parrot/trunk/src, jhorwitz <=