From 2c7460d7a9e2409b0daa409c43c24c71902dcd52 Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Thu, 11 Jan 2007 18:17:49 +0000
Subject: [PATCH] Fix up a perl regex that was preventing emulab-ops from being
recognized cause of the dash in the name.
---
db/Project.pm.in | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/db/Project.pm.in b/db/Project.pm.in
index 8974941836..cacd224400 100644
--- a/db/Project.pm.in
+++ b/db/Project.pm.in
@@ -63,7 +63,7 @@ sub Lookup($$)
$query_result =
DBQueryWarn("select * from projects where pid_idx='$token'");
}
- elsif ($token =~ /^\w*$/) {
+ elsif ($token =~ /^[-\w]*$/) {
$query_result =
DBQueryWarn("select * from projects where pid='$token'");
}
--
GitLab