From 72e2ba82d4489c381bc1424779fc54517f4dc5f4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 7 Aug 2012 10:37:22 +0000
Subject: (mkinitrd) do not crash if a foreign partition is not mounted
 (mga#6966)

---
 perl-install/bootloader.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index fedb4a15e..62a046fe9 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -109,9 +109,11 @@ sub get_label {
 sub mkinitrd {
     my ($kernel_version, $bootloader, $entry, $initrd) = @_;
 
+    my $dir = dirname($initrd);
     return $initrd if $::testing  # testing mode
       || -e "$::prefix/$initrd"   # already exists
-        || $initrd =~ /\(hd/;     # unrecognized partition
+        || $initrd =~ /\(hd/      # unrecognized partition
+          || !-d $dir;            # dir doesn't exist (probably !mounted foreign part)
 
     # for /boot on dos partitions when installing on loopback file on dos partition
     my $loop_boot = fs::loopback::prepare_boot();
-- 
cgit v1.2.1