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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-16 19:19:41 +0000 (Sat, 16 May 2009)
New Revision: 10182

Modified:
   Catalyst-Devel/1.00/trunk/lib/Catalyst/Helper.pm
Log:
remove unnecessary escape

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