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

[sartak at bestpractical.com]

Author: sartak
Date: Thu Sep 11 04:35:36 2008
New Revision: 15907

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

Log:
 r71631 at onn:  sartak | 2008-09-11 04:35:29 -0400
 Make sure that (in weird circumstances) the fact that the test path was hit doesn't linger


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:35:36 2008
@@ -49,6 +49,8 @@
     my $self = shift;
     my @copy = @_;
 
+    delete $self->{thss_test_path_hit};
+
     while (my ($item, $value) = splice @copy, 0, 2) {
         if ($item eq 'request_uri') {
             $self->{thss_test_path_hit} = $value eq $self->test_warning_path;