[Catalyst-commits] r13116 - Catalyst-Runtime/5.80/trunk/lib

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2010-03-31 21:09:17 +0100 (Wed, 31 Mar 2010)
New Revision: 13116

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Adding ability to switch X-Catalyst on by config. For everyone who would like to let Netcraft know how awesome Catalyst is. (Sorry rafl...)

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2010-03-31 18:20:10 UTC (rev 13115)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2010-03-31 20:09:17 UTC (rev 13116)
@@ -1950,7 +1950,7 @@
 
     #surely this is not the most efficient way to do things...
     $c->stats($class->stats_class->new)->enable($c->use_stats);
-    if ( $c->debug ) {
+    if ( $c->debug || $c->config->{enable_catalyst_header} ) {
         $c->res->headers->header( 'X-Catalyst' => $Catalyst::VERSION );
     }