summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps.pm7
-rw-r--r--perl-install/install_steps_interactive.pm9
2 files changed, 5 insertions, 11 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index a8f86af4e..aac003eaa 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -721,8 +721,11 @@ sub configurePrinter {
if_($o->do_pkgs->is_installed('gimp'), 'gimpprint'));
};
if ($@ =~ /rpm not found/) {
- $o->cleanupPrinter;
- log::l($@);
+ log::l("ERROR: $@");
+ if ($o->{printer}) {
+ require printer::printerdrake;
+ printer::printerdrake::final_cleanup($o->{printer});
+ }
return;
}
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index afee41a6f..8fa31372d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1178,15 +1178,6 @@ sub configurePrinter {
printer::printerdrake::main($printer, $o, $clicked, sub { install_interactive::upNetwork($o, 'pppAvoided') });
}
-
-sub cleanupPrinter {
- my ($o) = @_;
- #- Clean up $o->{printer} so that the records for an auto-installation
- #- contain only the important stuff
- return if !defined($o->{printer});
- require printer::printerdrake;
- printer::printerdrake::final_cleanup($o->{printer});
-}
#------------------------------------------------------------------------------
sub setRootPassword {