5f35be06a2
* Make RPC::XML::Server work with Net::Server again,
after the API changes of Net::Server 2.x.
* Correct handling of dateTime parameters
* Add port to Host header in client requests.
* Fix spelling error in man page
* improve tests
- remove unused patches which are unused since a long time
* RPC-XML-0.53-ext-daemon-and-header-cb.dif
* RPC-XML-0.60-fix-utf8.dif
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-RPC-XML?expand=0&rev=23
31 lines
1.6 KiB
Plaintext
31 lines
1.6 KiB
Plaintext
Index: t/40_server.t
|
|
===================================================================
|
|
--- t/40_server.t.orig
|
|
+++ t/40_server.t
|
|
@@ -164,8 +164,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
|
|
+++ t/40_server_xmllibxml.t
|
|
@@ -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
|