diff options
| -rw-r--r-- | perl-install/patch/patch-2006-auto_install_LDAP_auth.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/perl-install/patch/patch-2006-auto_install_LDAP_auth.pl b/perl-install/patch/patch-2006-auto_install_LDAP_auth.pl new file mode 100644 index 000000000..db719a905 --- /dev/null +++ b/perl-install/patch/patch-2006-auto_install_LDAP_auth.pl @@ -0,0 +1,16 @@ +use do_pkgs; +package do_pkgs_common; + +undef *ensure_are_installed; +*ensure_are_installed = sub { + my ($do, $pkgs, $b_auto) = @_; + + my @not_installed = difference2($pkgs, [ $do->are_installed(@$pkgs) ]) or return 1; + + if (!$do->install(@not_installed)) { + $do->in->ask_warn(N("Error"), N("Could not install the %s package!", $not_installed[0])); + return; + } + 1; +}; + |