- fix interface name handling

diff --git a/perl-Net-Interface-iface.patch b/perl-Net-Interface-iface.patch
new file mode 100644 (file)
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))

diff --git a/perl-Net-Interface.spec b/perl-Net-Interface.spec
index 9d84c20f8b83aeef49c8616d668382adcf675aa3..4cb288df6b3be80eaaa5312b931198622ff3ce78 100644 (file)
--- 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 \