[Catalyst-commits] r11863 - Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst

[zby at dev.catalyst.perl.org]

Author: zby
Date: 2009-11-17 14:30:23 +0000 (Tue, 17 Nov 2009)
New Revision: 11863

Modified:
   Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Context.pm
Log:
calling config on app object instead of context class (fix for t/live_stats.t )

Modified: Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Context.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Context.pm	2009-11-17 13:40:49 UTC (rev 11862)
+++ Catalyst-Runtime/5.80/branches/basic-app-ctx-separation-cleaned/lib/Catalyst/Context.pm	2009-11-17 14:30:23 UTC (rev 11863)
@@ -707,9 +707,8 @@
 
 sub _stats_start_execute {
     my ( $c, $code ) = @_;
-    my $appclass = ref($c) || $c;
     return if ( ( $code->name =~ /^_.*/ )
-        && ( !$appclass->config->{show_internal_actions} ) );
+        && ( !$c->config->{show_internal_actions} ) );
 
     my $action_name = $code->reverse();
     $c->counter->{$action_name}++;