From: Christian Hansen <chansen@cpan.org>
Date: Tue, 7 Jun 2005 04:29:01 +0000 (+0000)
Subject: Fixed regexp in Helper (David Storrs)
X-Git-Tag: 5.7099_04~1330
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=f74f8f3835fce906b00bb07a3757d3ec91f1c184

Fixed regexp in Helper (David Storrs)
---

diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm
index e8ad1d5..bc42104 100644
--- a/lib/Catalyst/Helper.pm
+++ b/lib/Catalyst/Helper.pm
@@ -97,7 +97,7 @@ sub mk_component {
       || eval { @{ [ getpwuid($<) ] }[6] }
       || 'A clever guy';
     $self->{base} = File::Spec->catdir( $FindBin::Bin, '..' );
-    unless ( $_[0] =~ /^model|m|view|v|controller|c\$/i ) {
+    unless ( $_[0] =~ /^(?:model|m|view|v|controller|c)$/i ) {
         my $helper = shift;
         my @args   = @_;
         my $class  = "Catalyst::Helper::$helper";