[Catalyst-commits] r10181 - Catalyst-Devel/1.00/trunk/lib/Catalyst

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-16 18:45:15 +0000 (Sat, 16 May 2009)
New Revision: 10181

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
C::Devel - better check for invalid app name

Modified: Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
===================================================================
--- Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-05-16 17:38:26 UTC (rev 10180)
+++ Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm	2009-05-16 18:45:15 UTC (rev 10181)
@@ -48,7 +48,7 @@
     # 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;
     }