eval cage for the shell

diff --git a/bin/dx-shell b/bin/dx-shell
index b320133..5a61588 100644 (file)
--- a/bin/dx-shell
+++ b/bin/dx-shell
@@ -99,7 +99,9 @@ my $cmd;
 while (defined(my $line = $rl->readline(length($cmd)?'> ':'$ '))) {
   $cmd .= "${line}\n";
   if ($tcl->call(info => complete => $cmd)) {
-    $tcl->Eval($cmd);
+    unless (eval { $tcl->Eval($cmd); 1 }) {
+      warn $@;
+    }
     $cmd = '';
   }
 }