Added the supplied argument to the regexp fallback warning for easier debugging

diff --git a/Changes b/Changes
index bf58e9a..e3660d2 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,8 @@
 
 5.7xxxxxx XXXX
         - Fix regressions for regexp fallback in model(), view() and controller()
+        - Added the supplied argument to the regexp fallback warning for easier
+          debugging
 
 5.7099_02 2008-07-16 19:10:00
         - Added PathPrefix attribute

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index bed30ee..ff5b3cd 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -461,6 +461,7 @@ sub _comp_search_prefixes {
 
     # don't warn if we didn't find any results, it just might not exist
     if( @result ) {
+        $c->log->warn( qq(Found results for "${name}" using regexp fallback.) );
         $c->log->warn( 'Relying on the regexp fallback behavior for component resolution is unreliable and unsafe.' );
         $c->log->warn( 'If you really want to search, pass in a regexp as the argument.' );
     }