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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-10-13 14:37:02 +0000 (Tue, 13 Oct 2009)
New Revision: 11519

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
more correct fix for uninitialized warning from ACL

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-10-13 10:35:06 UTC (rev 11518)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-10-13 14:37:02 UTC (rev 11519)
@@ -1629,12 +1629,13 @@
 
     # is this a root-level call or a forwarded call?
     if ( $callsub =~ /forward$/ ) {
+        my $parent = $c->stack->[-1];
 
         # forward, locate the caller
-        if ( my $parent = $c->stack->[-1] ) {
+        if ( exists $c->counter->{"$parent"} ) {
             $c->stats->profile(
                 begin  => $action,
-                parent => "$parent" . ($c->counter->{"$parent"} || 0),
+                parent => "$parent" . $c->counter->{"$parent"},
                 uid    => $uid,
             );
         }