diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-27 09:31:34 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-27 09:31:34 +0000 |
commit | d8d406fcac31376ee209bf47b4dc0be6331f81d7 (patch) | |
tree | 2428ff235225ca1248a741cc3b5a6231f1705865 /perl-install | |
parent | 8ec848efe4925051e55289c18ecc1e30d4224a63 (diff) | |
download | drakx-d8d406fcac31376ee209bf47b4dc0be6331f81d7.tar drakx-d8d406fcac31376ee209bf47b4dc0be6331f81d7.tar.gz drakx-d8d406fcac31376ee209bf47b4dc0be6331f81d7.tar.bz2 drakx-d8d406fcac31376ee209bf47b4dc0be6331f81d7.tar.xz drakx-d8d406fcac31376ee209bf47b4dc0be6331f81d7.zip |
fix error calling ask_okcancel on object install_steps_auto_install when setting LDAP authentication
Diffstat (limited to 'perl-install')
-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; +}; + |