From 6c7553a378159f9e67db3126fa48959b496853b3 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 5 Nov 2010 10:47:46 +0100
Subject: [PATCH] Beim Start auftretende Fehlermeldungen als String ausgeben

Andernfalls zeigt die Console nur "Devel::REPL::Error=HASH..." an.
---
 scripts/console | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
-- 
2.20.1