[packages/perl-Net-Interface] - fix interface name handling

[adwol]

commit dbb484e6bfc7049d669287143ed0f9d8ee1e469d
Author: Adam Osuchowski <adwol at pld-linux.org>
Date:   Sun Oct 7 23:54:52 2018 +0200

    - fix interface name handling

 perl-Net-Interface-iface.patch | 12 ++++++++++++
 perl-Net-Interface.spec        |  2 ++
 2 files changed, 14 insertions(+)
---
diff --git a/perl-Net-Interface.spec b/perl-Net-Interface.spec
index 9d84c20..4cb288d 100644
--- a/perl-Net-Interface.spec
+++ b/perl-Net-Interface.spec
@@ -16,6 +16,7 @@ Group:		Development/Languages/Perl
 Source0:	http://www.cpan.org/modules/by-module/Net/%{pdir}-%{pnam}-%{version}.tar.gz
 # Source0-md5:	339079deafeb8720c569bae51dac4a0d
 Patch0:		no-dot-in-inc.patch
+Patch1:		%{name}-iface.patch
 URL:		http://search.cpan.org/dist/Net-Interface/
 BuildRequires:	perl-devel >= 1:5.8.0
 BuildRequires:	rpm-perlprov >= 4.1-13
@@ -37,6 +38,7 @@ operacyjny na to pozwala).
 %prep
 %setup -q -n %{pdir}-%{pnam}-%{version}
 %patch0 -p1
+%patch1 -p1
 
 %build
 %{__perl} Makefile.PL \
diff --git a/perl-Net-Interface-iface.patch b/perl-Net-Interface-iface.patch
new file mode 100644
index 0000000..824b66b
--- /dev/null
+++ b/perl-Net-Interface-iface.patch
@@ -0,0 +1,12 @@
+diff -ruN Net-Interface-1.016.orig/Interface.xs Net-Interface-1.016/Interface.xs
+--- Net-Interface-1.016.orig/Interface.xs	2016-09-21 22:19:59.000000000 +0200
++++ Net-Interface-1.016/Interface.xs	2018-10-07 23:51:43.384989813 +0200
+@@ -317,7 +317,7 @@
+ 	while (ifap != NULL) {
+ 	    len = strlen(ifap->ifa_name);
+ /* this is sub 'new', target only the 'name'	*/
+-	    if (ix && strncmp(ifap->ifa_name,keyname,len))
++	    if (ix && strcmp(ifap->ifa_name,keyname))
+ 		goto nextname;
+ /* interface is known?				*/
+ 	    if (hv_exists(ifaces,ifap->ifa_name,len))
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Net-Interface.git/commitdiff/dbb484e6bfc7049d669287143ed0f9d8ee1e469d