Allow '-' (dash) in the retrieved project directory.

 - Required for: badblock-guess

diff --git a/project/ChangeLog.pm b/project/ChangeLog.pm
index cfef9a5..4cae2ac 100755 (executable)
--- a/project/ChangeLog.pm
+++ b/project/ChangeLog.pm
@@ -34,7 +34,7 @@ sub handler
 my $W=My::Web->init(
                "header_only"=>1,
                "args_check"=>{
 my $W=My::Web->init(
                "header_only"=>1,
                "args_check"=>{

-                               "cvs"=>'^[\w\d][\w\d/.]*$',
+                               "cvs"=>'^[\w\d][-\w\d/.]*$',

                                },
                "content_type"=>"text/plain",
                "http_safe"=>0, # cvs(1) downloads.
                                },
                "content_type"=>"text/plain",
                "http_safe"=>0, # cvs(1) downloads.