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

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-04-24 18:08:11 +0100 (Fri, 24 Apr 2009)
New Revision: 9827

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Improve regexp fallback warning.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-04-24 16:55:57 UTC (rev 9826)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-04-24 17:08:11 UTC (rev 9827)
@@ -527,7 +527,7 @@
     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];