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

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

Subject: [svn:parrot] r31512 - trunk/languages/tcl/runtime/builtin
From:
Date: Tue, 30 Sep 2008 07:19:48 -0700 PDT
Newsgroups: perl.cvs.parrot

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:

<Prev in Thread] Current Thread [Next in Thread>
  • [svn:parrot] r31512 - trunk/languages/tcl/runtime/builtin, coke <=