summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-03 05:39:25 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-03 05:39:25 +0000
commit9459533085f13f924f8540dd3196c097b98e301c (patch)
tree07e4cc55bb8e8077327cc16d3ed0558a4d7e87a5 /perl-install
parentd392488081cc7b6bf492ee246cda4a3674282f1b (diff)
downloaddrakx-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.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+),;
}
},