From db4013c2a40eaeb3752cc69623037e4bb274693b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 8 Sep 1999 18:41:06 +0000
Subject: no_comment

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

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

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