r77877 - in /branches/upstream/libio-interface-perl/current: Changes Interface.pm META.yml t/basic.t

[angelabad-guest at users.alioth.debian.org]

Author: angelabad-guest
Date: Tue Jul 26 14:15:19 2011
New Revision: 77877

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=77877
Log:
[svn-upgrade] new version libio-interface-perl (1.06)

Modified:
    branches/upstream/libio-interface-perl/current/Changes
    branches/upstream/libio-interface-perl/current/Interface.pm
    branches/upstream/libio-interface-perl/current/META.yml
    branches/upstream/libio-interface-perl/current/t/basic.t

Modified: branches/upstream/libio-interface-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-interface-perl/current/Changes?rev=77877&op=diff
==============================================================================
--- branches/upstream/libio-interface-perl/current/Changes (original)
+++ branches/upstream/libio-interface-perl/current/Changes Tue Jul 26 14:15:19 2011
@@ -1,4 +1,7 @@
 Revision history for Perl extension IO::Interface.
+1.06    Thu Jul 21 13:40:49 EDT 2011
+        Address test 5 failure on systems with aliases on loopback.        
+
 1.05    Fri Jun  6 11:53:21 EDT 2008
         Fix from Mitsuru Yoshida to compile on FreeBSD.
 

Modified: branches/upstream/libio-interface-perl/current/Interface.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-interface-perl/current/Interface.pm?rev=77877&op=diff
==============================================================================
--- branches/upstream/libio-interface-perl/current/Interface.pm (original)
+++ branches/upstream/libio-interface-perl/current/Interface.pm Tue Jul 26 14:15:19 2011
@@ -28,7 +28,7 @@
 @EXPORT = qw( );
 
 @ISA = qw(Exporter DynaLoader);
-$VERSION = '1.05';
+$VERSION = '1.06';
 
 sub AUTOLOAD {
     # This AUTOLOAD is used to 'autoload' constants from the constant()

Modified: branches/upstream/libio-interface-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-interface-perl/current/META.yml?rev=77877&op=diff
==============================================================================
--- branches/upstream/libio-interface-perl/current/META.yml (original)
+++ branches/upstream/libio-interface-perl/current/META.yml Tue Jul 26 14:15:19 2011
@@ -1,12 +1,20 @@
 --- #YAML:1.0
-name:                IO-Interface
-version:             1.05
-abstract:            ~
-license:             ~
-author:              ~
-generated_by:        ExtUtils::MakeMaker version 6.44
-distribution_type:   module
-requires:     
+name:               IO-Interface
+version:            1.06
+abstract:           ~
+author:  []
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
+requires:  {}
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.55_02
 meta-spec:
-    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
-    version: 1.3
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libio-interface-perl/current/t/basic.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libio-interface-perl/current/t/basic.t?rev=77877&op=diff
==============================================================================
--- branches/upstream/libio-interface-perl/current/t/basic.t (original)
+++ branches/upstream/libio-interface-perl/current/t/basic.t Tue Jul 26 14:15:19 2011
@@ -26,13 +26,15 @@
 print @if ? 'ok ': 'not ok ',3,"\n";
 
 # find loopback interface
-my $loopback;
+my @loopback;
 foreach (@if) {
 	next unless $s->if_flags($_) & IFF_UP;
-        $loopback = $_ if $s->if_flags($_) & IFF_LOOPBACK;
+	push @loopback,$_ if $s->if_flags($_) & IFF_LOOPBACK;
 }
 
-print $loopback ? 'ok ':'not ok ',4,"\n";
-print $s->if_addr($loopback) eq '127.0.0.1' ? 'ok ': 'not ok ',5,"\n";
+print @loopback ? 'ok ':'not ok ',4,"\n";
+my @local = grep {$s->if_addr($_) eq '127.0.0.1'} @loopback;
+
+print @local ? 'ok ': 'not ok ',5,"\n";