From: Rafael Kitover Date: Sat, 16 May 2009 18:45:15 +0000 (+0000) Subject: C::Devel - better check for invalid app name X-Git-Tag: 1.16~13 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=572d0422fc9a3bd396da92a6b0723aafe27c57f8;p=catagits%2FCatalyst-Devel.git C::Devel - better check for invalid app name --- diff --git a/lib/Catalyst/Helper.pm b/lib/Catalyst/Helper.pm index 9b17ffd..fb41b44 100644 --- a/lib/Catalyst/Helper.pm +++ b/lib/Catalyst/Helper.pm @@ -48,7 +48,7 @@ sub mk_app { # Needs to be here for PAR require Catalyst; - if ( $name =~ /[^\w\:]/ ) { + if ( $name =~ /[^\w\:]/ || $name =~ /^\d/ || $name =~ /\b:\b|:{3,}/) { warn "Error: Invalid application name.\n"; return 0; }