diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rw-r--r-- | perl-install/devices.pm | 4 |
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 { |