Skip Menu |
 

This queue is for tickets about the Net-Interface CPAN distribution.

Report information
The Basics
Id: 83994
Status: open
Priority: 0/
Queue: Net-Interface

People
Owner: Nobody in particular
Requestors: SHANTANU [...] cpan.org
Cc:
AdminCc:

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



Subject: Bareword "AF_INET6" not allowed while "strict subs" in use at t/faceinfo.t line 130
Download (untitled) / with headers
text/plain 215b
Bareword "AF_INET6" not allowed while "strict subs" in use at t/faceinfo.t line 130 Test Fails here, I didn't go throught the file but you must use use no strict for that section I guess? Thanks, -Shantanu Bhadoria
Please apply this patch
Subject: Net-Interface.patch
*** Net-Interface-1.012/inst/netsymbols.pl 2009-03-23 13:55:30.000000000 -0700 --- Net-Interface-1.012.patched/inst/netsymbols.pl 2014-04-08 07:53:29.880024588 -0700 *************** *** 189,202 **** } } cleanslurp(); ! slurp('sys/socket.h'); # parse sys/socket.h and its #includes fill(\%fam,\%unique,'^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)'); # repeat in case symbol dependencies are out of order cleanslurp(); ! slurp('sys/socket.h'); fill(\%fam,'','^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)'); --- 190,209 ---- } } + sub guess { + my $path = shift; + return $path if (-e $Config{usrinc} .'/'. $path); + } cleanslurp(); ! ! my $socket_h = guess('sys/socket.h') || guess('x86_64-linux-gnu/bits/socket.h') || guess('i386-linux-gnu/bits/socket.h'); ! slurp($socket_h); # parse sys/socket.h and its #includes fill(\%fam,\%unique,'^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)'); # repeat in case symbol dependencies are out of order cleanslurp(); ! slurp($socket_h); fill(\%fam,'','^#\s*define\s+((?:A|P)F_[^\s]+)\s+([^\s]+)');
From: Christopher Hoskin
The attached patch should work on all architectures
Subject: socket_h.patch
Download socket_h.patch
text/x-diff 601b
Description: Architecture independent patch for CPAN bug #83994 Author: Christopher Hoskin <christopher.hoskin@gmail.com> Forwarded: Last-Update: 2015-05-02 --- a/inst/netsymbols.pl +++ b/inst/netsymbols.pl @@ -110,10 +110,14 @@ return if $slurped{$in}; $slurped{$in} = 1; local *F; - open (F,$Config{usrinc} .'/'. $in) or return; - my @new = <F>; - close F; - push @slurp, @new; + my $incpth = $Config{incpth}; + while ($incpth =~ /(\S+)/g) { + open (F,$1 .'/'. $in) or next; + my @new = <F>; + close F; + push @slurp, @new; + return; + } } # input: hash pointer,
Download (untitled) / with headers
text/plain 399b
On 2015-05-02 11:40:42, https://login.launchpad.net/+id/C8r3dKs wrote: Show quoted text
> The attached patch should work on all architectures >
Unfortunately $Config{incpth} seems to be available only in newer perls (approx. since perl 5.19.9). For me a combination of both patches (first one for perl <5.20, second one for perl >=5.20) work best --- but then, I only have to deal with mainstream architectures...


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.