diff options
| -rw-r--r-- | perl-install/install2.pm | 1 | ||||
| -rw-r--r-- | perl-install/install_steps_auto_install.pm | 3 |
2 files changed, 3 insertions, 1 deletions
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>; |