diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index 9cc57b2fb..60295f880 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -25,7 +25,7 @@ sub get { #- Detect the default BIOS boot harddrive is kind of tricky. We may have IDE, #- SCSI and RAID devices on the same machine. From what I see so far, the default #- BIOS boot harddrive will be - #- 1. The first IDE device if IDE exists. Or + #- 1. The first IDE device if IDE exists. Or #- 2. The first SCSI device if SCSI exists. Or #- 3. The first RAID device if RAID exists. @@ -94,7 +94,7 @@ sub getSCSI() { sub getIDE() { my @idi; - #- Great. 2.2 kernel, things are much easier and less error prone. + #- Great. 2.2 kernel, things are much easier and less error prone. foreach my $d (glob_('/proc/ide/hd*')) { my ($t) = chop_(cat_("$d/media")); my $type = $ {{disk => 'hd', cdrom => 'cdrom', tape => 'tape', floppy => 'fd'}}{$t} or next; @@ -115,7 +115,7 @@ sub getCompaqSmartArray() { if (m|^(ida/.*?):|) { push @idi, { device => $1, info => "Compaq RAID logical disk", type => 'hd' }; last; - } + } } } @idi; @@ -125,10 +125,10 @@ sub getDAC960() { my @idi; #- We are looking for lines of this format:DAC960#0: - #- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012 + #- /dev/rd/c0d0: RAID-7, Online, 17928192 blocks, Write Thru0123456790123456789012 foreach (syslog()) { my ($devicename, $info) = m|/dev/rd/(.*?): (.*?),| or next; - push @idi, { info => $info, type => 'hd', devicename => $devicename }; + push @idi, { info => $info, type => 'hd', devicename => $devicename }; log::l("DAC960: $devicename: $info"); } @idi; @@ -149,7 +149,7 @@ sub net2module() { %l; } -sub getNet() { +sub getNet() { grep { hasNetDevice($_) } @netdevices; } sub getPlip() { @@ -189,7 +189,7 @@ sub whatParport() { my @res =(); foreach (0..3) { local *F; - my $elem = {}; + my $elem = {}; open F, "/proc/parport/$_/autoprobe" or next; foreach (<F>) { $elem->{$1} = $2 if /(.*):(.*);/ } push @res, { port => "/dev/lp$_", val => $elem}; @@ -209,10 +209,10 @@ sub whatPrinter() { sub whatPrinterPort() { grep { tryWrite($_)} qw(/dev/lp0 /dev/lp1 /dev/lp2); -} +} #-###################################################################################### #- Wonderful perl :( #-###################################################################################### -1; # +1; # |