perl 5.21.7 - test fail of cpan/IO-Socket-IP/t/01local-client-v4.t

[parv]

Has anybody noticed the test failure (in perl 5.21.7) related to
socket address in cpan/IO-Socket-IP/t/01local-client-v4.t when
multiple aliases exist for 127.0.0.1 ...

  # cd ~/tmp/perl/perl-5.21.7
  # export LD_LIBRARY_PATH=`pwd`; perl cpan/IO-Socket-IP/t/01local-client-v4.t
  ...
  ok 9 - $socket->peerport for SOCK_STREAM
  not ok 10 - $socket->sockaddr for SOCK_STREAM
  #   Failed test '$socket->sockaddr for SOCK_STREAM'
  #   at cpan/IO-Socket-IP/t/01local-client-v4.t line 66.
  #          got: '7f000002'
  #     expected: '7f000001'
  ok 11 - $socket->peeraddr for SOCK_STREAM
  ok 12 - $socket not connected after close for SOCK_STREAM
  ...
  ok 21 - $socket->peerport for SOCK_DGRAM
  not ok 22 - $socket->sockaddr for SOCK_DGRAM
  #   Failed test '$socket->sockaddr for SOCK_DGRAM'
  #   at cpan/IO-Socket-IP/t/01local-client-v4.t line 66.
  #          got: '7f000002'
  #     expected: '7f000001'
  ok 23 - $socket->peeraddr for SOCK_DGRAM
  ...

... ? The related lines are ...

  # Some odd locations like BSD jails might not like INADDR_LOOPBACK. We'll
  # establish a baseline first to test against
  my $INADDR_LOOPBACK = do {
    socket my $sockh, PF_INET, SOCK_STREAM, 0 or die "Cannot socket(PF_INET) - $!";
    bind $sockh, pack_sockaddr_in( 0, inet_aton( "127.0.0.1" ) ) or die "Cannot bind() - $!";
    ( unpack_sockaddr_in( getsockname $sockh ) )[1];
  };
  my $INADDR_LOOPBACK_HOST = inet_ntoa( $INADDR_LOOPBACK );
  if( $INADDR_LOOPBACK ne INADDR_LOOPBACK ) {
    diag( "Testing with INADDR_LOOPBACK=$INADDR_LOOPBACK_HOST; this may be because of odd networking" );
  }
  my $INADDR_LOOPBACK_HEX = unpack "H*", $INADDR_LOOPBACK;
  .
  .
  .
  is( unpack("H*", $socket->sockaddr), $INADDR_LOOPBACK_HEX, \
    "\$socket->sockaddr for $socktype" );


As I do have these ...

  # ifconfig lo0
  lo0: flags=8049<UP,LOOPBACK,RUNNING,MULTICAST> metric 0 mtu 16384
    options=3<RXCSUM,TXCSUM>
    inet6 fe80::1%lo0 prefixlen 64 scopeid 0xd
    inet6 ::1 prefixlen 128
    inet 127.0.0.1 netmask 0xff000000
    inet 127.0.0.2 netmask 0xffffff00
    inet 127.0.0.3 netmask 0xffffff00
    inet 127.0.0.4 netmask 0xffffff00
    nd6 options=3<PERFORMNUD,ACCEPT_RTADV>


... should test failures be expected, and are not a problem?


  - parv

--