From fc1af4f717fde1466fb349544fc6f79bbb530d85 Mon Sep 17 00:00:00 2001
From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Fri, 20 Feb 2009 21:26:50 +0000
Subject: [PATCH] Unbreak comon and other scripts that use a '-'
---
backend.ml | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/backend.ml b/backend.ml
index dead06d..535c549 100644
--- a/backend.ml
+++ b/backend.ml
@@ -41,7 +41,7 @@ class backendHandler dir_root (frontend_lst: frontendHandler list) =
(** Regular expression that defines a legal script name. Filter out
* temporary files using it *)
- val file_regexp = Str.regexp "^[a-zA-Z][a-zA-Z0-9_'.''-']*$"
+ val file_regexp = Str.regexp "^[a-zA-Z][a-zA-Z0-9_\.\-]*$"
val acl_file_regexp = Str.regexp ".*acl$"
(** Somebody created a new directory *)
--
2.47.0