From 9459533085f13f924f8540dd3196c097b98e301c Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 3 Jun 2005 05:39:25 +0000 Subject: be more in drakx spirit, and more important perl_checker warning clean --- perl-install/network/netconnect.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index ec6a6841f..1b98ef6c0 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1207,12 +1207,11 @@ set TxRate=0); dvb_adapter => { pre => sub { - use Fcntl qw(O_RDWR O_NONBLOCK); my $previous_ethntf = find { $is_dvb_interface->($_) } values %$intf; $dvb_ad = $previous_ethntf->{DVB_ADAPTER_ID}; $dvb_net = $previous_ethntf->{DVB_NETWORK_DEMUX}; $dvb_pid = $previous_ethntf->{DVB_NETWORK_PID}; - if (my $device = find { sysopen(undef, $_, O_RDWR | O_NONBLOCK) } glob("/dev/dvb/adapter*/net*")) { + if (my $device = find { sysopen(undef, $_, 2 | c::O_NONBLOCK()) } glob("/dev/dvb/adapter*/net*")) { ($dvb_ad, $dvb_net) = $device =~ m,/dev/dvb/adapter(\d+)/net(\d+),; } }, -- cgit v1.2.1