no_comment

1 files changed, 6 insertions, 1 deletions

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 4b585f7e6..0ff5743b5 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -14,7 +14,7 @@ use modules;
 #-######################################################################################
 #- misc imports
 #-######################################################################################
-use common qw(:common);
+use common qw(:common :functional);
 use install_steps;
 use log;
 
@@ -70,6 +70,11 @@ sub selectLanguage {
     lang::load_console_font($o->{lang});
 }
 
+sub installPackages {
+    my ($o, $packages) = @_;
+    catch_cdie { $o->install_steps::installPackages($packages) } sub { print "$@\n"; 1 }
+}
+
 sub exitInstall {
     my ($o, $alldone) = @_;
     return if $o->{autoExitInstall};