Hi,

we've received a bug report in the Debian bug tracker at
http://bugs.debian.org/482221

Summary: t/40server.t fails if $srv->url doesn't return localhost but
localhost.localdomain.

I've tried with
127.0.0.1 localhost
and
127.0.0.1 localhost.localdomain localhost
in /etc/hosts, the former works, the latter doesn't.

I've now prepared the attached patch for allow for both values;
please consider applying it or creating a different solution for the
problem.

Thanks in advance,
gregor (Debian Perl Group)

-- 
 .''`.   http://info.comodo.priv.at/ | gpg key ID: 0x00F3CFE4
 : :' :  debian gnu/linux user, admin & developer - http://www.debian.org/
 `. `'   member of https://www.vibe.at/ | how to reply: http://got.to/quote/
   `-    NP: Kurt Ostbahn & Die Kombo: I reiss o auf Mexico
Author: gregor herrmann <[EMAIL PROTECTED]>
Bug: #482221
Description: The test depends on /etc/hosts or whatever resolves
'localhost'. Allow both 'localhost' and 'localhost.localdomain' as valid
values.

--- librpc-xml-perl-0.60.orig/t/40_server.t
+++ librpc-xml-perl-0.60/t/40_server.t
@@ -55,7 +55,7 @@
 $srv = RPC::XML::Server->new(no_default => 1,
                              host => 'localhost', port => $port);
 isa_ok($srv, 'RPC::XML::Server', '$srv<2>');
-is($srv->url, "http://localhost:$port/";,
+like($srv->url, qr#http://localhost(.localdomain)?:$port/#,
    'RPC::XML::Server::url method (set)'); # This should be non-null this time
 # Test some of the simpler cases of add_method and get_method
 $res = $srv->add_method({ name      => 'perl.test.suite.test1',

Attachment: signature.asc
Description: Digital signature

Reply via email to