remove unnecessary escape
Rafael Kitover [Sat, 16 May 2009 19:19:41 +0000 (19:19 +0000)]
lib/Catalyst/Helper.pm

index fb41b44..7401e6d 100644 (file)
@@ -48,7 +48,7 @@ sub mk_app {
     # Needs to be here for PAR
     require Catalyst;
 
-    if ( $name =~ /[^\w\:]/ || $name =~ /^\d/ || $name =~ /\b:\b|:{3,}/) {
+    if ( $name =~ /[^\w:]/ || $name =~ /^\d/ || $name =~ /\b:\b|:{3,}/) {
         warn "Error: Invalid application name.\n";
         return 0;
     }