From: Sapan Bhatia <sapanb@cs.princeton.edu>
Date: Wed, 18 Jun 2008 18:18:57 +0000 (+0000)
Subject: Rpm creates an annoying temp file that vsys saw as a new script. Fool vsys once, ...
X-Git-Tag: vsys-0.7-11~2
X-Git-Url: http://git.onelab.eu/?p=vsys.git;a=commitdiff_plain;h=d6806401d23028bfe5df6c7c5e35ecfe5fc828e7

Rpm creates an annoying temp file that vsys saw as a new script. Fool vsys once, ...
---

diff --git a/backend.ml b/backend.ml
index fd648bb..6743f8c 100644
--- a/backend.ml
+++ b/backend.ml
@@ -46,7 +46,7 @@ class backendHandler dir_root (frontend_lst: frontendHandler list) =
 
      (** Regular expression that defines a legal script name. Filter out
        * temporary files using this *)
-     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$"
 
      val dir_regexp = Str.regexp "^dir_";