From 2d3b13d3b7e6f08f6310467ece7d399c5858d233 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 28 Aug 1999 10:19:54 +0000
Subject: no_comment

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 327f12754..b8e9c9993 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -29,6 +29,11 @@ sub get {
 }
 sub hds() { grep { $_->{type} eq 'hd' } get(); }
 sub cdroms() { grep { $_->{type} eq 'cdrom' } get(); }
+sub floppies() {
+    my @l = grep { $_->{type} eq 'fd' } get();
+    unshift @l, "fd0" if tryOpen("fd0");
+    @l;
+}
 
 sub hasSCSI() {
     defined $scsiDeviceAvailable and return $scsiDeviceAvailable;
@@ -143,3 +148,8 @@ sub hasPlip() { goto &getPlip }
 sub hasEthernet() { hasNetDevice("eth0"); }
 sub hasTokenRing() { hasNetDevice("tr0"); }
 sub hasNetDevice($) { c::hasNetDevice($_[0]) }
+
+sub tryOpen($) {
+    local *F;
+    sysopen F, "/dev/$_[0]", c::O_NONBLOCK();
+}
-- 
cgit v1.2.1