File RPC-XML-0.60-rev127.dif of Package perl-RPC-XML

Overview Repositories Revisions Requests Users Attributes Meta

File RPC-XML-0.60-rev127.dif of Package perl-RPC-XML

Index: t/40_server.t
===================================================================
--- t/40_server.t.orig	2010-10-22 10:15:38.000000000 +0200
+++ t/40_server.t	2011-03-22 07:35:52.549287223 +0100
@@ -63,8 +63,9 @@ isa_ok($srv, 'RPC::XML::Server', '$srv<2
 # 22/09/2008 - Just allow for anything the user has attached to this address.
 #              Aliases keep causing this test to falsely fail.
 my @localhostinfo = gethostbyname('localhost');
+my $loc_reverse = gethostbyaddr(inet_aton("127.0.0.1"),AF_INET);
 my $localIP = join('.', unpack('C4', $localhostinfo[4]));
-my @allhosts = ($localIP, $localhostinfo[0], split(' ', $localhostinfo[1]));
+my @allhosts = ($localIP, $localhostinfo[0], split(' ', $localhostinfo[1]), $loc_reverse);
 for (@allhosts) { s/\./\\./g }
 # Per RT 27778: For some reason gethostbyname('localhost') does not return
 # "localhost" on win32
Index: t/40_server_xmllibxml.t
===================================================================
--- t/40_server_xmllibxml.t.orig	2010-10-22 10:15:38.000000000 +0200
+++ t/40_server_xmllibxml.t	2011-03-22 07:36:56.583394893 +0100
@@ -80,8 +80,9 @@ isa_ok($srv, 'RPC::XML::Server', '$srv<2
 # 22/09/2008 - Just allow for anything the user has attached to this address.
 #              Aliases keep causing this test to falsely fail.
 my @localhostinfo = gethostbyname('localhost');
+my $loc_reverse = gethostbyaddr(inet_aton("127.0.0.1"),AF_INET);
 my $localIP = join('.', unpack('C4', $localhostinfo[4]));
-my @allhosts = ($localIP, $localhostinfo[0], split(' ', $localhostinfo[1]));
+my @allhosts = ($localIP, $localhostinfo[0], split(' ', $localhostinfo[1]), $loc_reverse);
 for (@allhosts) { s/\./\\./g }
 # Per RT 27778: For some reason gethostbyname('localhost') does not return
 # "localhost" on win32

Places

File RPC-XML-0.60-rev127.dif of Package perl-RPC-XML

Places