(device_name_to_entry) define $e->{devfs_prefix} if entry looks looks

like a devfs one but isn't found in device list (else our computed
$e->{devfs_device} will be crappy)

1 files changed, 1 insertions, 0 deletions

diff --git a/perl-install/standalone/drakupdate_fstab b/perl-install/standalone/drakupdate_fstab
index 46b05e9fc..9a34c317d 100755
--- a/perl-install/standalone/drakupdate_fstab
+++ b/perl-install/standalone/drakupdate_fstab
@@ -64,6 +64,7 @@ sub device_name_to_entry {
     my ($e, $nb);
     if ((my $devfs_prefix, $nb) = $name =~ m,(.*)/(?:cd|disc|part(\d+))$,) {
 	$e = find { $_->{devfs_prefix} eq $devfs_prefix } @l;
+        $e->{devfs_prefix} ||= $devfs_prefix;
     } else {
 	if ($e = find { $name eq $_->{device} } @l) {
 	    $nb = '';