only allow word characters in script names

mojolicious · Aug 16, 2009 · 47aa0b9 · 47aa0b9
1 parent 06ee1a1
commit 47aa0b9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/Changes b/Changes
@@ -78,6 +78,7 @@ This file documents the revision history for Perl extension Mojo.
         - Fixed cloning of urls with base in Mojo::URL.
         - Fixed parsing of multiple headers and cookies with same name.
         - Fixed pipeline support in Mojo::Client. (acajou)
+        - Fixed Mojo::Scripts to only allow word characters in script names.
 
 0.991246 2009-08-01 00:00:00
         - Fixed typo.

diff --git a/lib/Mojo/Scripts.pm b/lib/Mojo/Scripts.pm
@@ -27,7 +27,7 @@ sub run {
     my ($self, $name, @args) = @_;
 
     # Run script
-    if ($name && ($name ne 'help' || $args[0])) {
+    if ($name && $name =~ /^\w+$/ && ($name ne 'help' || $args[0])) {
 
         # Help?
         my $help = $name eq 'help' ? 1 : 0;