From 68c3c1cd6e89d6a0f91f6c86510ec661864da336 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 4 Sep 1999 16:54:19 +0000
Subject: no_comment

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index c0cdb221d..47220af91 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -31,7 +31,9 @@ sub get {
 sub hds() { grep { $_->{type} eq 'hd' } get(); }
 sub cdroms() { grep { $_->{type} eq 'cdrom' } get(); }
 sub floppies() {
-    (grep { tryOpen($_) } qw(fd0 fd1)),
+    (grep { 
+	my $fd = tryOpen();
+    } qw(fd0 fd1)),
     (grep { $_->{type} eq 'fd' } get());
 }
 
@@ -160,12 +162,12 @@ sub hasNetDevice($) { c::hasNetDevice($_[0]) }
 
 sub tryOpen($) {
     local *F;
-    sysopen F, devices::make($_[0]), c::O_NONBLOCK();
+    sysopen F, devices::make($_[0]), c::O_NONBLOCK() and \*F;
 }
 
 sub syslog {
     my $file = "/var/log/dmesg";
     -r $file or $file = "/tmp/syslog";
-    cat_($file);
-    `dmesg`;
+    my @l = cat_($file);
+    @l ? @l : `dmesg`;
 }
-- 
cgit v1.2.1