From adbee14303bfa3998c514caf35ec550ee515d5ea Mon Sep 17 00:00:00 2001
From: Colin Guthrie <colin@mageia.org>
Date: Sat, 1 Sep 2012 14:40:52 +0000
Subject: (mkinitrd) Fix prefix checking in foreign partition check (mga#6966)

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 62a046fe9..b7b1d4c33 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -113,7 +113,7 @@ sub mkinitrd {
     return $initrd if $::testing  # testing mode
       || -e "$::prefix/$initrd"   # already exists
         || $initrd =~ /\(hd/      # unrecognized partition
-          || !-d $dir;            # dir doesn't exist (probably !mounted foreign part)
+          || !-d "$::prefix/$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