From 4b0c7955bbb4c2556b604c80d4bbd7314233a7ed Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 10 Sep 1999 16:44:40 +0000
Subject: no_comment

---
 perl-install/detect_devices.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 5b6f79e41..fd98b409a 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -31,9 +31,7 @@ sub get {
 sub hds() { grep { $_->{type} eq 'hd' } get(); }
 sub cdroms() { grep { $_->{type} eq 'cdrom' } get(); }
 sub floppies() {
-    (grep { 
-	my $fd = tryOpen($_);
-    } qw(fd0 fd1)),
+    (grep { tryOpen($_) } qw(fd0 fd1)),
     (grep { $_->{type} eq 'fd' } get());
 }
 
-- 
cgit v1.2.1