[Catalyst-commits] r13005 - Catalyst-Runtime/5.80/branches/param_filtering/lib

[bpphillips at dev.catalyst.perl.org]

Author: bpphillips
Date: 2010-03-04 04:20:39 +0000 (Thu, 04 Mar 2010)
New Revision: 13005

Modified:
   Catalyst-Runtime/5.80/branches/param_filtering/lib/Catalyst.pm
Log:
only log response status, content-type and content-length headers


Modified: Catalyst-Runtime/5.80/branches/param_filtering/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/param_filtering/lib/Catalyst.pm	2010-03-04 02:16:46 UTC (rev 13004)
+++ Catalyst-Runtime/5.80/branches/param_filtering/lib/Catalyst.pm	2010-03-04 04:20:39 UTC (rev 13005)
@@ -2151,8 +2151,14 @@
     my($dump) = grep {$_->[0] eq 'Response' } $c->dump_these;
     my $response = $dump->[1];
 
-    $c->log->debug('Response Status: ' . $response->status);
-    $c->log_headers('response', $response->headers);
+	$c->log->debug(
+		sprintf(
+			'Response Code: %s; Content-Type: %s; Content-Length: %s',
+			$response->status                            || 'unknown',
+			$response->headers->header('Content-Type')   || 'unknown',
+			$response->headers->header('Content-Length') || 'unknown'
+		)
+	);
 }
 
 =head2 $c->log_request_parameters( query => {}, body => {} )