summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/devices.pm4
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 1a4651040..c9a79dd5a 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -5,6 +5,7 @@
o fix check for missing help
- diskdrake
o suggest a LVM name and refuse empty or existing one (#53769)
+ o prefer UUID on VirtIO too
Version 12.51 - 8 September 2009
diff --git a/perl-install/devices.pm b/perl-install/devices.pm
index f94362770..c088e2a6f 100644
--- a/perl-install/devices.pm
+++ b/perl-install/devices.pm
@@ -198,7 +198,7 @@ sub make($) {
sub simple_partition_scan {
my ($part) = @_;
- $part->{device} =~ /([hs]d[a-z])(\d+)$/;
+ $part->{device} =~ /([vhs]d[a-z])(\d+)$/;
}
sub part_number {
my ($part) = @_;
@@ -216,7 +216,7 @@ sub prefix_for_dev {
sub should_prefer_UUID {
my ($dev) = @_;
- $dev =~ /^(hd|sd)/;
+ $dev =~ /^(hd|sd|vd)/;
}
sub symlink_now_and_register {