From c546d79301231b3419522071b5cd479651058729 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jan 2004 18:06:00 +0000
Subject: display the error

---
 perl-install/install2.pm                   | 1 +
 perl-install/install_steps_auto_install.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 0525ee8a2..5385ead46 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -611,6 +611,7 @@ sub main {
 	    local $_ = $err;
 	    $o->kill_action;
 	    if (!/^already displayed/) {
+		log::l("error: $err");
 		eval { $o->errorInStep($_) };
 		$o->{steps}{$o->{step}}{auto} = 0;
 		$err = $@;
diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 2c89ffbad..465ac10c9 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -100,8 +100,9 @@ sub charsetChanged {
 }
 
 sub errorInStep {
-    my ($_o, $_err) = @_;
+    my ($_o, $err) = @_;
     print "error :(\n"; 
+    print "$err\n\n";
     print "switch to console f2 for a shell\n";
     print "Press <Enter> to reboot\n";
     <STDIN>;
-- 
cgit v1.2.1