From 78e8097c578fb334c7440a5459fdb7aecc827feb Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Nov 2002 17:36:32 +0000
Subject: - add/remove spaces to make perl_checker happy - remove redundant
 parentheses - add some parentheses for clarity

---
 perl-install/unused/scsi.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/unused')

diff --git a/perl-install/unused/scsi.pm b/perl-install/unused/scsi.pm
index bd0df92b1..1755ee255 100644
--- a/perl-install/unused/scsi.pm
+++ b/perl-install/unused/scsi.pm
@@ -64,7 +64,7 @@ sub ideGetDevices {
 	my $type = ${{ disk => 'hd', cdrom => 'cdrom', tape => 'tape', floppy => 'fd' }}{$t} or next;
 	my ($info) = chomp_(cat_("$d/model")); $info ||= "(none)";
 
-	my $num = ord (($d =~ /(.)$/)[0]) - ord 'a';
+	my $num = ord(($d =~ /(.)$/)[0]) - ord 'a';
 	push @idi, { type => $type, device => basename($d), info => $info, bus => $num/2, id => $num%2 };
     }
     [ @idi ];
-- 
cgit v1.2.1