From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 5 Nov 2010 09:47:46 +0000 (+0100)
Subject: Beim Start auftretende Fehlermeldungen als String ausgeben
X-Git-Tag: release-2.6.2beta1~58^2~5
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/6c7553a378159f9e67db3126fa48959b496853b3?ds=inline;hp=-c

Beim Start auftretende Fehlermeldungen als String ausgeben

Andernfalls zeigt die Console nur "Devel::REPL::Error=HASH..." an.
---

6c7553a378159f9e67db3126fa48959b496853b3
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;