X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=0698ade27f63dd67e11398dc08db40d2cea5d4cb;hp=15cbac1b010875f17a9607c87dc1f5bc9ccf038e;hb=91d08727e09f9cf96248fdcf3ed355fcf07b6ff0;hpb=565d379bd2c3005efb454c099f0e380e1901776e

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 15cbac1..0698ade 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -1129,7 +1129,7 @@ sub execute {
 
     if ( $c->depth >= $RECURSION ) {
         my $action = "$code";
-        $action = "/$action" unless $action =~ /\-\>/;
+        $action = "/$action" unless $action =~ /->/;
         my $error = qq/Deep recursion detected calling "$action"/;
         $c->log->error($error);
         $c->error($error);
@@ -1151,6 +1151,7 @@ sub execute {
         if ( $error eq $DETACH ) { die $DETACH if $c->depth > 1 }
         else {
             unless ( ref $error ) {
+                no warnings 'uninitialized';
                 chomp $error;
                 my $class = $last->class;
                 my $name  = $last->name;