From 84abe1403dfbe37b3f6326666e8b7ebb47c577f4 Mon Sep 17 00:00:00 2001 From: "cls%seawood.org" Date: Wed, 1 Dec 2004 06:12:25 +0000 Subject: [PATCH] Strip ./ & / from beginning of legaldirs when comparing against checked in files. Explicitly check for "." & "/" when matching directory names. Bug #260310 r=timeless --- webtools/bonsai/addcheckin.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/webtools/bonsai/addcheckin.pl b/webtools/bonsai/addcheckin.pl index ecaeec96d272..b006adf8b5a9 100755 --- a/webtools/bonsai/addcheckin.pl +++ b/webtools/bonsai/addcheckin.pl @@ -173,7 +173,8 @@ FILE: $full = "$dir/$f"; LEGALDIR: foreach $d (sort( grep(!/\*$/, @::LegalDirs))) { - if ($full =~ m!^$d\b!) { + $d =~ s@^[\.]/@@; + if ($d eq "\." || $d eq "/" || $full =~ m!^$d\b/!) { $okdir = 1; last LEGALDIR; }