diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 05:39:25 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-06-03 05:39:25 +0000 |
| commit | 9459533085f13f924f8540dd3196c097b98e301c (patch) | |
| tree | 07e4cc55bb8e8077327cc16d3ed0558a4d7e87a5 /perl-install | |
| parent | d392488081cc7b6bf492ee246cda4a3674282f1b (diff) | |
| download | drakx-9459533085f13f924f8540dd3196c097b98e301c.tar drakx-9459533085f13f924f8540dd3196c097b98e301c.tar.gz drakx-9459533085f13f924f8540dd3196c097b98e301c.tar.bz2 drakx-9459533085f13f924f8540dd3196c097b98e301c.tar.xz drakx-9459533085f13f924f8540dd3196c097b98e301c.zip | |
be more in drakx spirit, and more important perl_checker warning clean
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/netconnect.pm | 3 |
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+),; } }, |