Only in HTTP-Server-Simple-0.44.new: Makefile.old
diff -u -r HTTP-Server-Simple-0.44.new/lib/HTTP/Server/Simple.pm HTTP-Server-Simple-0.44/lib/HTTP/Server/Simple.pm
--- HTTP-Server-Simple-0.44.new/lib/HTTP/Server/Simple.pm 2011-07-13 08:25:21.000000000 +0100
+++ HTTP-Server-Simple-0.44/lib/HTTP/Server/Simple.pm 2011-04-04 08:02:15.000000000 +0100
@@ -603,14 +603,11 @@
defined($chunk) or return undef;
$_ = $chunk;
- m!^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$!;
+ m/^(\w+)\s+(\S+)(?:\s+(\S+))?\r?$/;
my $method = $1 || '';
my $uri = $2 || '';
my $protocol = $3 || '';
- # strip <scheme>://<host:port> out of HTTP/1.1 requests
- $uri =~ s{\w+://[^/]+/}{/};
-
return ( $method, $uri, $protocol );
}
diff -u -r HTTP-Server-Simple-0.44.new/t/04cgi.t HTTP-Server-Simple-0.44/t/04cgi.t
--- HTTP-Server-Simple-0.44.new/t/04cgi.t 2011-07-13 08:26:30.000000000 +0100
+++ HTTP-Server-Simple-0.44/t/04cgi.t 2011-04-04 07:58:23.000000000 +0100
@@ -32,10 +32,10 @@
if ($^O eq 'freebsd' && `sysctl -n security.jail.jailed` == 1) {
delete @methods{qw(url server_name)};
delete @envvars{qw(SERVER_URL SERVER_NAME REMOTE_ADDR)};
- plan tests => 34;
+ plan tests => 18;
}
else {
- plan tests => 39;
+ plan tests => 23;
}
{
@@ -69,28 +69,6 @@
select(undef,undef,undef,0.2); # wait a sec
}
-# extra tests for HTTP/1.1 absolute URLs
-
- foreach my $method (keys(%methods)) {
- next unless defined $methods{$method};
- like(
- fetch("GET
http://localhost/cgitest/$method HTTP/1.1",""),
- "/$methods{$method}/",
- "method (absolute URL) - $method"
- );
- select(undef,undef,undef,0.2); # wait a sec
- }
-
- foreach my $envvar (keys(%envvars)) {
- like(
- fetch("GET
http://localhost/cgitest/$envvar HTTP/1.1",""),
- "/$envvars{$envvar}/",
- "Environment (absolute URL) - $envvar"
- );
- select(undef,undef,undef,0.2); # wait a sec
- }
-
-
like(
fetch("GET /cgitest/REQUEST_URI?foo%3Fbar HTTP/1.0",""),
qr/foo%3Fbar/,
