[Bps-public-commit] r15908 - in Test-HTTP-Server-Simple-StashWarnings/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Thu Sep 11 04:38:03 2008
New Revision: 15908

Modified:
   Test-HTTP-Server-Simple-StashWarnings/trunk/   (props changed)
   Test-HTTP-Server-Simple-StashWarnings/trunk/lib/Test/HTTP/Server/Simple/StashWarnings.pm

Log:
 r71634 at onn:  sartak | 2008-09-11 04:38:00 -0400
 Do some canonicalization of multiple /s at the beginning of the URL to check


Modified: Test-HTTP-Server-Simple-StashWarnings/trunk/lib/Test/HTTP/Server/Simple/StashWarnings.pm
==============================================================================
--- Test-HTTP-Server-Simple-StashWarnings/trunk/lib/Test/HTTP/Server/Simple/StashWarnings.pm	(original)
+++ Test-HTTP-Server-Simple-StashWarnings/trunk/lib/Test/HTTP/Server/Simple/StashWarnings.pm	Thu Sep 11 04:38:03 2008
@@ -53,6 +53,9 @@
 
     while (my ($item, $value) = splice @copy, 0, 2) {
         if ($item eq 'request_uri') {
+            # a little bit of canonicalization is okay I guess
+            $value =~ s{^/+}{/};
+
             $self->{thss_test_path_hit} = $value eq $self->test_warning_path;
         }
     }