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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-10-12 16:18:22 +0000 (Mon, 12 Oct 2009)
New Revision: 11513

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
fix uninitialized warning in ACL

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-10-12 13:01:14 UTC (rev 11512)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-10-12 16:18:22 UTC (rev 11513)
@@ -1634,7 +1634,7 @@
         if ( my $parent = $c->stack->[-1] ) {
             $c->stats->profile(
                 begin  => $action,
-                parent => "$parent" . $c->counter->{"$parent"},
+                parent => "$parent" . ($c->counter->{"$parent"} || ''),
                 uid    => $uid,
             );
         }