[svn:parrot] r31512 - trunk/languages/tcl/runtime/builtin

Author: coke
Date: Tue Sep 30 07:19:47 2008
New Revision: 31512

Modified:
   trunk/languages/tcl/runtime/builtin/namespace.pir

Log:
[tcl] if a namespace doesn't exist, skip the import instead of dying with a 
null PMC error.


Modified: trunk/languages/tcl/runtime/builtin/namespace.pir
==============================================================================
--- trunk/languages/tcl/runtime/builtin/namespace.pir   (original)
+++ trunk/languages/tcl/runtime/builtin/namespace.pir   Tue Sep 30 07:19:47 2008
@@ -447,6 +447,7 @@
   unless ns_iterator goto done_ns_walk
   $S0 = shift ns_iterator
   namespace = namespace[$S0]
+  if null namespace goto end_ns_loop
 
   goto begin_ns_walk
 done_ns_walk: