[svn:mod_parrot] r361 - mod_parrot/trunk/src
[email protected] Sat, 19 Jul 2008 12:19:35 -0700 (PDT)
| Newsgroups | perl.cvs.mod_parrot |
|---|---|
| Message-ID | <[email protected]> |
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);
}