always update $part{device} in fs::subpart_from_wild_device_name because /dev is stripped (fix #6982, #10175)

1 files 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");