From 35d4cf199bdeca3f26205aab9022ce11367f88cb Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 3 Jun 2005 07:33:22 +0000 Subject: help perl_checker --- perl-install/network/netconnect.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index defb3e571..9f255f214 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -1112,7 +1112,7 @@ set TxRate=0); $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, $_, c::O_RDWR | c::O_NONBLOCK()) } glob("/dev/dvb/adapter*/net*")) { + if (my $device = find { sysopen(undef, $_, c::O_RDWR() | c::O_NONBLOCK()) } glob("/dev/dvb/adapter*/net*")) { ($dvb_ad, $dvb_net) = $device =~ m,/dev/dvb/adapter(\d+)/net(\d+),; } }, -- cgit v1.2.1