From 25f65beed0677fa247c513705dbf538225f979c4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 19 Sep 1999 17:31:42 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'perl-install/detect_devices.pm')

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; #
 
-- 
cgit v1.2.1