From: David Kamholz <dkamholz@cpan.org>
Date: Wed, 5 Jul 2006 21:08:15 +0000 (+0000)
Subject: two tiny cleanups in trunk
X-Git-Tag: 5.7099_04~428
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=91d08727e09f9cf96248fdcf3ed355fcf07b6ff0;hp=565d379bd2c3005efb454c099f0e380e1901776e

two tiny cleanups in trunk
---

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;