[libnet-interface-perl] 01/02: Architecture independent patch for CPAN bug #83994

[Christopher Hoskin]

This is an automated email from the git hooks/post-receive script.

grinorcole-guest pushed a commit to branch master
in repository libnet-interface-perl.

commit 998807fd6d5f8e7434f6aa250b3b57fbf8596304
Author: Christopher Hoskin <christopher.hoskin at gmail.com>
Date:   Sat May 2 16:33:17 2015 +0100

    Architecture independent patch for CPAN bug #83994
---
 debian/patches/series         |  2 +-
 debian/patches/socket_h.patch | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/debian/patches/series b/debian/patches/series
index dd8441a..4362634 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,3 @@
+socket_h.patch
 manpage.patch
 update-configure.ac.patch
-Upstream-Bug-83994.patch
diff --git a/debian/patches/socket_h.patch b/debian/patches/socket_h.patch
new file mode 100644
index 0000000..3ee589f
--- /dev/null
+++ b/debian/patches/socket_h.patch
@@ -0,0 +1,21 @@
+--- 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,

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-interface-perl.git