From a1405ef0bb385952675a0d4dc898920cbae32302 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 18 Apr 2013 05:34:30 +0000
Subject: (to_subpart) fix reading link if not a mapper device

condition got inverted in commit r3694 on Mar 23 2012
("perl_checker cleanups")

spot by Colin
---
 perl-install/fs/wild_device.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/fs/wild_device.pm b/perl-install/fs/wild_device.pm
index a1bf98c50..fabf747c4 100644
--- a/perl-install/fs/wild_device.pm
+++ b/perl-install/fs/wild_device.pm
@@ -44,7 +44,7 @@ sub to_subpart {
 		($part{major}, $part{minor}) = unmakedev($rdev);
 	    }
 
-	    my $symlink = $dev =~ m!mapper/! ? readlink("$::prefix$dev") : undef;
+	    my $symlink = $dev !~ m!mapper/! ? readlink("$::prefix$dev") : undef;
 	    $dev =~ s!/u?dev/!!;
 
 	    if ($symlink && $symlink !~ m!^/!) {
-- 
cgit v1.2.1