Strip ./ & / from beginning of legaldirs when comparing against checked in

files.
Explicitly check for "." & "/" when matching directory names.
Bug #260310 r=timeless
This commit is contained in:
cls%seawood.org 2004-12-01 06:12:25 +00:00
Родитель afaefbac28
Коммит 84abe1403d
1 изменённых файлов: 2 добавлений и 1 удалений

Просмотреть файл

@ -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;
}