summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm3
1 files changed, 1 insertions, 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+),;
}
},