From 7fc03519620b88cc83a498a9e238d25a890d6122 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 29 Jun 2004 10:41:37 +0000
Subject: always update $part{device} in fs::subpart_from_wild_device_name
 because /dev is stripped (fix #6982, #10175)

---
 perl-install/fs.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index 62d286dc4..dda2716f5 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -152,8 +152,8 @@ sub subpart_from_wild_device_name {
 	    }
 	    $dev =~ s!/(tmp|dev)/!!;
 
-	    my $is_devfs = $dev =~ m!/(disc|part\d+)$!;
-	    $part{$is_devfs ? 'devfs_device' : 'device'} = $dev;
+	    $part{device} = $dev;
+	    $part{devfs_device} = $dev if $dev =~ m!/(disc|part\d+)$!;
 	    return \%part;
 	} else {
 	    log::l("part_from_wild_device_name: unknown device $dev");
-- 
cgit v1.2.1