[svn] Minor fixes to test suite.

[wget] / tests / HTTPServer.pm

diff --git a/tests/HTTPServer.pm b/tests/HTTPServer.pm
index 2d56160a16f708558de817fc3084a9f119bbd5c0..d29ea307f5dcbc80cbdb1389be5cb6811d8efa16 100755 (executable)
--- a/tests/HTTPServer.pm
+++ b/tests/HTTPServer.pm
@@ -32,9 +32,9 @@ sub run {
             if ($url_path =~ m{/$}) { # append 'index.html'
                 $url_path .= 'index.html';
             }
-            if ($url_path =~ m{^/}) { # remove trailing '/'
-                $url_path = substr ($url_path, 1);
-            }
+            #if ($url_path =~ m{^/}) { # remove trailing '/'
+            #    $url_path = substr ($url_path, 1);
+            #}
             if ($log) {
                 print STDERR "Method: ", $req->method, "\n";
                 print STDERR "Path: ", $url_path, "\n";