Skip Menu |

This queue is for tickets about the OWNet CPAN distribution.

Report information
The Basics
Id: 58008
Status: open
Priority: 0/
Queue: OWNet

People
Owner: Nobody in particular
Requestors: julien [...] famille-garnier.com
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 1.8
Fixed in: (no value)



Subject: Can't open default port
Hello, Fron several days, after a CPAN update when trying to use OWNet to ask a network owserver, I've error: Can't open default port (Connection refused) Trying with perl 5.12.1 and perl 5.10 Script is the test script : #!/usr/bin/perl -w use OWNet ; # Create owserver object my $owserver = OWNet->new('192.168.1.221:4304 -v -C') ; #print directory print $owserver->dir('/') ; Runing script from 192.168.1.163 return : Can't open default port (Connexion refusée) No owserver discovered by Net::Rendezvous When using owdir from 192.168.1.163 is OK : # owdir -s 192.168.1.221 /1F.D8E803000000 /1F.AAE003000000 /1F.A6CD03000000 /bus.0 /uncached /settings /system /statistics /structure Thanks
Subject: [rt.cpan.org #58008] patch
Date: Sun, 13 Dec 2015 12:57:04 +0200
To: bug-OWNet [...] rt.cpan.org
From: Esa Tikka <esa.tikka [...] iki.fi>
It seems easy enough to patch this, I'll report it here now anyway after running into it myself. Regexp match for an empty regexp doesn't seem to work as intended here, matching for an empty string does the job, however. I'm not quite sure why regexp has been used, so my fix might not be perfect. *** /home/etikka/.local/share/.cpan/build/OWNet-1.8-uP1NO3/blib/lib/OWNet.pm 2007-02-08 07:14:15.000000000 +0200 --- /usr/local/share/perl/5.20.2/OWNet.pm 2015-12-13 12:51:37.000000000 +0200 *************** *** 249,253 **** $self->{PERSIST} = 0 ; } ! if ( $self->{ADDR} =~ // ) { _DefaultLookup($self) || _BonjourLookup($self) || return ; } else { --- 249,253 ---- $self->{PERSIST} = 0 ; } ! if ( $self->{ADDR} eq "" ) { _DefaultLookup($self) || _BonjourLookup($self) || return ; } else {