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

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2008-09-03 00:54:43 +0100 (Wed, 03 Sep 2008)
New Revision: 8334

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
only call ACCEPT_CONTEXT if we actually have a context

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2008-09-02 15:49:10 UTC (rev 8333)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2008-09-02 23:54:43 UTC (rev 8334)
@@ -506,7 +506,7 @@
 sub _filter_component {
     my ( $c, $comp, @args ) = @_;
 
-    if ( eval { $comp->can('ACCEPT_CONTEXT'); } ) {
+    if ( Scalar::Util::blessed($c) && eval { $comp->can('ACCEPT_CONTEXT'); } ) {
         return $comp->ACCEPT_CONTEXT( $c, @args );
     }