diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/NEWS | 1 | ||||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS index a18b20792..bf8fd80cc 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -6,6 +6,7 @@ o do not suggest Windows mountpoint for mounted partitions (breaks install if the Win partition is the installer media) - harddrake: + o do not display bogus "0" ids for hard disks o fix detecting some mice Version 12.78 - 18 November 2009 diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 02b0d08ce..97beec64b 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -491,6 +491,8 @@ undef $flush_guard; sub format_bus_ids { my ($device) = $_; + # do not vivify ids: + return if !($device->{vendor} && $device->{id}); foreach my $field (qw(vendor id subvendor subid)) { next if !$device->{$field}; $device->{$field} = sprintf("0x%04x", $device->{$field}); |