From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Fri, 20 Feb 2009 21:26:50 +0000 (+0000)
Subject: Unbreak comon and other scripts that use a '-'
X-Git-Tag: vsys-0.7-25~2
X-Git-Url: http://git.onelab.eu/?p=vsys.git;a=commitdiff_plain;h=fc1af4f717fde1466fb349544fc6f79bbb530d85

Unbreak comon and other scripts that use a '-'
---

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 *)