[Rt-commit] r3486 - in HTTP-Server-Simple: . lib/HTTP/Server t

[jesse at bestpractical.com]

Author: jesse
Date: Sun Jul 17 02:17:39 2005
New Revision: 3486

Modified:
   HTTP-Server-Simple/   (props changed)
   HTTP-Server-Simple/Changes
   HTTP-Server-Simple/META.yml
   HTTP-Server-Simple/SIGNATURE
   HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
   HTTP-Server-Simple/t/04cgi.t
Log:
 r4872 at hualien:  jesse | 2005-07-17 02:17:19 -0400
 * Fix for cpan #12766 from Mattia Barbon


Modified: HTTP-Server-Simple/Changes
==============================================================================
--- HTTP-Server-Simple/Changes	(original)
+++ HTTP-Server-Simple/Changes	Sun Jul 17 02:17:39 2005
@@ -1,3 +1,7 @@
+0.12 Sun Jul 17 02:14:57 EDT 2005
+
+  Test suite improvements from Mattia Barbon
+
 0.11 Fri Jul  8 22:56:01 EDT 2005
   Bogus META.yml broke signature checks. Thanks to sungo.
 

Modified: HTTP-Server-Simple/META.yml
==============================================================================
--- HTTP-Server-Simple/META.yml	(original)
+++ HTTP-Server-Simple/META.yml	Sun Jul 17 02:17:39 2005
@@ -1,5 +1,5 @@
 name: HTTP-Server-Simple
-version: 0.11
+version: 0.12
 license: perl
 distribution_type: module
 requires:

Modified: HTTP-Server-Simple/SIGNATURE
==============================================================================
--- HTTP-Server-Simple/SIGNATURE	(original)
+++ HTTP-Server-Simple/SIGNATURE	Sun Jul 17 02:17:39 2005
@@ -14,9 +14,9 @@
 -----BEGIN PGP SIGNED MESSAGE-----
 Hash: SHA1
 
-SHA1 368ddce74542d3024a2251f404abcaa6f913bcfe Changes
+SHA1 6d4f8e15dde5a6c187d083138f1e153938b1710e Changes
 SHA1 74092110d280de0961a26025021bb987d345dabc MANIFEST
-SHA1 37c58aaaa22b9c890af3879503391c9cdf78e8cb META.yml
+SHA1 f3e509d68360de8eb914675f304287124c1cbd15 META.yml
 SHA1 490f3fd115e09cb05b725580e5ed5cdd58241049 Makefile.PL
 SHA1 ed0c107672daac3bc9e266876666e1059dbe44b7 README
 SHA1 4ea1e9072ca87399184a46233df52a21e285604d ex/sample_server
@@ -28,17 +28,17 @@
 SHA1 e448c6dc5351ef425e3f8bdbeb642409120bc3ca inc/Module/Install/Metadata.pm
 SHA1 134de6ff2f762873b6a1af950dd53f8e0a801d73 inc/Module/Install/Win32.pm
 SHA1 1ec06df292af7f652d33db6129e9e4c7cc8b5095 inc/Module/Install/WriteAll.pm
-SHA1 45d431ceca2329e1d0f910deafa904fef634f107 lib/HTTP/Server/Simple.pm
+SHA1 02ce626459684e2877f3765b26eb6c3ab9565884 lib/HTTP/Server/Simple.pm
 SHA1 f8717b83bec75c3b7dc7904b14823bf605b77f99 lib/HTTP/Server/Simple/CGI.pm
 SHA1 db064af54cab345a71daec576e32e64b8fb1033d t/00smoke.t
 SHA1 9e68bffc26b5a42e2785ec68c3bf6fe45d6bb6da t/01live.t
 SHA1 aca95653cfce68912e08c57b3a4566207e2f99b3 t/02pod.t
 SHA1 90f0be3e6b0fab021155953742f5cc5c5e47a5aa t/03podcoverage.t
-SHA1 7d6a3698510c015e35960b35384b85cc959cb543 t/04cgi.t
+SHA1 bc768072c7b03bd801a81936ef79bbe42e05f98f t/04cgi.t
 -----BEGIN PGP SIGNATURE-----
 Version: GnuPG v1.4.1 (GNU/Linux)
 
-iD8DBQFCzzzSEi9d9xCOQEYRAsUDAJ43NWXFAybv/fskUW0/+amr4G+JkwCglkwO
-ByciRWmrFgIdUeqV6sqIHL0=
-=9jZp
+iD8DBQFC2fe7Ei9d9xCOQEYRAi0qAJ0UK+YBqSfVAvgAQ13v53V0p5483ACfZ8IH
+QKebP7QcVOP9T/c6plsuSiM=
+=KQKS
 -----END PGP SIGNATURE-----

Modified: HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
==============================================================================
--- HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	(original)
+++ HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	Sun Jul 17 02:17:39 2005
@@ -5,7 +5,7 @@
 use Socket;
 use Carp;
 
-our $VERSION = '0.11';
+our $VERSION = '0.12';
 
 =head1 NAME
 

Modified: HTTP-Server-Simple/t/04cgi.t
==============================================================================
--- HTTP-Server-Simple/t/04cgi.t	(original)
+++ HTTP-Server-Simple/t/04cgi.t	Sun Jul 17 02:17:39 2005
@@ -3,26 +3,27 @@
 use strict;
 
 use constant PORT => 13432;
+my $host = gethostbyaddr(inet_aton('localhost'), AF_INET);
 
 our %methods=(
-              url => 'url: http://localhost(?:\.localdomain)?:'.PORT,
+              url => "url: http://$host:".PORT,
               path_info => 'path_info: /cgitest/path_info',
-              remote_host => 'remote_host: localhost',
-              server_name => 'server_name: localhost',
+              remote_host => "remote_host: $host",
+              server_name => "server_name: $host",
               server_port => 'server_port: '.PORT,
               server_software => 'server_software: HTTP::Server::Simple/\d+.\d+',
               request_method => 'request_method: GET',
             );
 
 our %envvars=(
-              SERVER_URL => 'SERVER_URL: http://localhost(?:\.localdomain)?:'.PORT.'/',
+              SERVER_URL => "SERVER_URL: http://$host:".PORT.'/',
               SERVER_PORT => 'SERVER_PORT: '.PORT,
               REQUEST_METHOD => 'REQUEST_METHOD: GET',
               REQUEST_URI => 'REQUEST_URI: /cgitest/REQUEST_URI',
               SERVER_PROTOCOL => 'SERVER_PROTOCOL: HTTP/1.1',
-              SERVER_NAME => 'SERVER_NAME: localhost',
+              SERVER_NAME => "SERVER_NAME: $host",
               SERVER_SOFTWARE => 'SERVER_SOFTWARE: HTTP::Server::Simple/\d+.\d+',
-              REMOTE_HOST => 'REMOTE_HOST: localhost',
+              REMOTE_HOST => "REMOTE_HOST: $host",
               REMOTE_ADDR => 'REMOTE_ADDR: 127.0.0.1',
               QUERY_STRING => 'QUERY_STRING: ',
               PATH_INFO => 'PATH_INFO: /cgitest/PATH_INFO',