From: Fitz Elliott <fitz.elliott@gmail.com>
Date: Wed, 20 Mar 2013 20:50:20 +0000 (-0400)
Subject: fix broken tests for new psgi logging code
X-Git-Tag: 5.90030~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=a273dd589895d687efd358d65f2cc4e623350e97

fix broken tests for new psgi logging code

 * lib/Catalyst/Log.pm
   * document clear_psgi for podcoverage.t
   * add psgienv to stopwords for spelling.t

 * t/lib/TestApp/View/Dump.pm
   * clear_psgienv() is now called clear_psgi()

Signed-off-by: John Napiorkowski <jjnapiork@cpan.org>
---

diff --git a/lib/Catalyst/Log.pm b/lib/Catalyst/Log.pm
index 42aff02..d72ee16 100644
--- a/lib/Catalyst/Log.pm
+++ b/lib/Catalyst/Log.pm
@@ -162,6 +162,8 @@ __PACKAGE__->meta->make_immutable(inline_constructor => 0);
 
 __END__
 
+=for stopwords psgienv
+
 =head1 NAME
 
 Catalyst::Log - Catalyst Log Class
@@ -301,6 +303,10 @@ the right place. If the environment has a C<psgix.logger>, it will be used. If
 not, we will send logs to C<psgi.errors> if that exists. As a last fallback, we
 will send to STDERR as before.
 
+=head2 clear_psgi
+
+Clears the PSGI environment attributes set by L</psgienv>.
+
 =head2 meta
 
 =head1 SEE ALSO
diff --git a/t/lib/TestApp/View/Dump.pm b/t/lib/TestApp/View/Dump.pm
index 43cc976..dff41e8 100644
--- a/t/lib/TestApp/View/Dump.pm
+++ b/t/lib/TestApp/View/Dump.pm
@@ -40,7 +40,7 @@ sub process {
     my $context = delete $reference->{_context};
 
     if (my $log = $reference->{_log}) {
-        $log->clear_psgienv if $log->can('psgienv');
+        $log->clear_psgi if ($log->can('psgienv'));
     }
 
     if ( my $output =