X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9437bec6c5db32725ca19a431c1ffd0f0986187f..6c7553a378159f9e67db3126fa48959b496853b3:/scripts/console?ds=sidebyside

diff --git a/scripts/console b/scripts/console
index 5d928b5e5..fc982aa3c 100755
--- a/scripts/console
+++ b/scripts/console
@@ -29,7 +29,10 @@ $repl->load_history($history_file);
 $repl->eval('help');
 $repl->print("trying to auto login as '$login'...");
 $repl->print($repl->eval("lxinit '$login'"));
-$repl->print($repl->eval($autorun)) if $autorun;
+if ($autorun) {
+  my $result = $repl->eval($autorun);
+  $repl->print($result->message) if ref($result) eq 'Devel::REPL::Error';
+}
 $repl->run;
 
 package Devel::REPL;