projects
/
catagits/Catalyst-Devel.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
C::Devel - better check for invalid app name
[catagits/Catalyst-Devel.git]
/
lib
/
Catalyst
/
Helper.pm
diff --git
a/lib/Catalyst/Helper.pm
b/lib/Catalyst/Helper.pm
index
9b17ffd
..
fb41b44
100644
(file)
--- 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;
}