From e6b400a507f8afc35552032e5bfc5a92b743a31c Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Wed, 10 Feb 2010 11:22:17 +0000 Subject: fix grub-md5-crypt call when running from a chroot This should fix encrypted grub passwords in installer (bug #57461) --- perl-install/NEWS | 1 + perl-install/bootloader.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 25817e105..311e64e1a 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,4 @@ +- fix invocation of grub-md5-crypt from within installer (#57461) - add support for asturian (#56990) - drakboot: o fix crypted password detection diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index be7f5bebc..37f7722ca 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -1679,7 +1679,7 @@ 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"); + my $pid = IPC::Open2::open2($his_out, $his_in, "$::prefix/sbin/grub-md5-crypt", $::prefix ? "--grub-shell=$::prefix/sbin/grub" : ()); my ($line, $res); while (sysread($his_out, $line, 100)) { -- cgit v1.2.1