From 89490a2dad02316682b601af9425ad4d7805ba71 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Fri, 13 Aug 2004 04:35:57 +0000 Subject: (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) --- perl-install/standalone/drakupdate_fstab | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') 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 = ''; -- cgit v1.2.1