From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 24 Apr 2009 17:08:11 +0000 (+0000)
Subject: Improve regexp fallback warning.
X-Git-Tag: 5.80003~34
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=e260802a2794d499f6faf2619dbbf943541829ab

Improve regexp fallback warning.
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 9d4d603..537cae1 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -527,7 +527,7 @@ sub _comp_search_prefixes {
     if( @result ) {
         # Disgusting hack to work out correct method name
         my $warn_for = lc $prefixes[0];
-        my $msg = "Used regexp fallback for \$c->{$warn_for}('${name}'), which found '" .
+        my $msg = "Used regexp fallback for \$c->${warn_for}('${name}'), which found '" .
            (join '", "', @result) . "'. Relying on regexp fallback behavior for " .
            "component resolution is unreliable and unsafe.";
         my $short = $result[0];