From 6e9844dcc28a36d3b43a4ffe98c07342aba3dd12 Mon Sep 17 00:00:00 2001
From: short <>
Date: Tue, 18 Oct 2005 05:04:46 +0000
Subject: [PATCH] Allow '-' (dash) in the retrieved project directory.  -
 Required for: badblock-guess

---
 project/ChangeLog.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/project/ChangeLog.pm b/project/ChangeLog.pm
index cfef9a5..4cae2ac 100755
--- a/project/ChangeLog.pm
+++ b/project/ChangeLog.pm
@@ -34,7 +34,7 @@ sub handler
 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.
-- 
1.8.3.1