[brlcad-commits] SF.net SVN: brlcad:[42202] brlcad/trunk/src/tclscripts/lib/Command.tcl

[<br...@us...>]

Revision: 42202
          http://brlcad.svn.sourceforge.net/brlcad/?rev=42202&view=rev
Author:   brlcad
Date:     2011-01-13 03:01:27 +0000 (Thu, 13 Jan 2011)

Log Message:
-----------
gracefully handle a failure to create a slave interpreter

Modified Paths:
--------------
    brlcad/trunk/src/tclscripts/lib/Command.tcl

Modified: brlcad/trunk/src/tclscripts/lib/Command.tcl
===================================================================
--- brlcad/trunk/src/tclscripts/lib/Command.tcl	2011-01-13 02:42:26 UTC (rev 42201)
+++ brlcad/trunk/src/tclscripts/lib/Command.tcl	2011-01-13 03:01:27 UTC (rev 42202)
@@ -192,7 +192,10 @@
 ::itcl::body Command::constructor {args} {
     eval itk_initialize $args
 
-    set slaveInterp [interp create]
+    # thar be dragons here
+    if { [catch {set slaveInterp [interp create]} error] } {
+	error "Unable to initalize a slave interpreter"
+    }
 
     doBindings
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.