From: André Walker <andre@andrewalker.net>
Date: Wed, 8 Jun 2011 20:56:01 +0000 (-0300)
Subject: fixed _get_component_type's regexp's
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=6b5fdca77ce2826e47d04f4cb264b9d0e59b28ca

fixed _get_component_type's regexp's
---

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 6b43cc3..d250ea7 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -2547,9 +2547,9 @@ sub _get_component_type {
     my @parts     = split /::/, $component;
 
     for (@parts) {
-        return 'controller' if /c|controller/i;
-        return 'model'      if /m|model/i;
-        return 'view'       if /v|view/i;
+        return 'controller' if /^c|controller$/i;
+        return 'model'      if /^m|model$/i;
+        return 'view'       if /^v|view$/i;
     }
 }