diff options
| author | Christophe Fergeau <cfergeau@mandriva.com> | 2010-02-10 16:58:23 +0000 |
|---|---|---|
| committer | Christophe Fergeau <cfergeau@mandriva.com> | 2010-02-10 16:58:23 +0000 |
| commit | 5262467c1206558e55d891c49b9e6c643fb47c6a (patch) | |
| tree | fddcff72e6c6a7413f80faebded85c2f51ce34cd /perl-install | |
| parent | e725c284becc41ffddc8b0187cbc7834d1f338df (diff) | |
| download | drakx-5262467c1206558e55d891c49b9e6c643fb47c6a.tar drakx-5262467c1206558e55d891c49b9e6c643fb47c6a.tar.gz drakx-5262467c1206558e55d891c49b9e6c643fb47c6a.tar.bz2 drakx-5262467c1206558e55d891c49b9e6c643fb47c6a.tar.xz drakx-5262467c1206558e55d891c49b9e6c643fb47c6a.zip | |
fix generation of grub md5 password on 64 bit installs
we can't directly run grub-md5-crypt in 64 bit installs since it will
run grub which is a 32 bit binary, and the install root fs doesn't have
32 bit user-land support. chroot into the target system if ::prefix is
set to have proper 32 bit support if needed.
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index c7944a377..84bca9173 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1676,7 +1676,9 @@ sub crypt_grub_password { require IPC::Open2; local $ENV{LC_ALL} = 'C'; my ($his_out, $his_in); - my $pid = IPC::Open2::open2($his_out, $his_in, "$::prefix/sbin/grub-md5-crypt", $::prefix ? "--grub-shell=$::prefix/sbin/grub" : ()); + my $cmd = ($::prefix ? "chroot $::prefix " : "") . "/sbin/grub-md5-crypt"; + + my $pid = IPC::Open2::open2($his_out, $his_in, $cmd); my ($line, $res); while (sysread($his_out, $line, 100)) { |