X-Git-Url: http://sjero.net/git/?p=wget;a=blobdiff_plain;f=tests%2FHTTPServer.pm;h=5252b5b8c7c89193857c23cde3eefe8934675cdc;hp=e3c38e6f5f02c31a580813591b6e21a2726a6dc2;hb=78a765739543d5ca3bc83ad70f5d391b9d2af4f5;hpb=d8c11a82ca9e8fab6689b53dc12199da4cc6058d diff --git a/tests/HTTPServer.pm b/tests/HTTPServer.pm index e3c38e6f..5252b5b8 100644 --- a/tests/HTTPServer.pm +++ b/tests/HTTPServer.pm @@ -26,7 +26,8 @@ sub run { my $con = $self->accept(); print STDERR "Accepted a new connection\n" if $log; while (my $req = $con->get_request) { - my $url_path = $req->url->path; + #my $url_path = $req->url->path; + my $url_path = $req->url->as_string; if ($url_path =~ m{/$}) { # append 'index.html' $url_path .= 'index.html'; }