From 3034cf642a22b57c653f936ad3868c3da65fea2f Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 23 Feb 2002 11:38:49 +0000
Subject: devices::make doesn't mknod with devfs

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

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 0ea650e1f..f324bca8c 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -354,12 +354,12 @@ sub check {
 
 sub tryOpen($) {
     local *F;
-    sysopen F, devices::make($_[0]), c::O_NONBLOCK() and *F;
+    eval { sysopen F, devices::make($_[0]), c::O_NONBLOCK() and *F };
 }
 
 sub tryWrite($) {
     local *F;
-    sysopen F, devices::make($_[0]), 1 | c::O_NONBLOCK() and *F;
+    eval { sysopen F, devices::make($_[0]), 1 | c::O_NONBLOCK() and *F };
 }
 
 sub syslog {
-- 
cgit v1.2.1