Handle edge cases of dirname(SCRIPT_NAME) results.

Bug #343534 r=timeless
This commit is contained in:
cls%seawood.org 2006-07-07 14:06:04 +00:00
Родитель 69527fd4de
Коммит 31ce9c449b
1 изменённых файлов: 2 добавлений и 0 удалений

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

@ -1085,6 +1085,8 @@ sub validateReferer {
my $found = 0; my $found = 0;
my $script_path = dirname($ENV{'SCRIPT_NAME'}); my $script_path = dirname($ENV{'SCRIPT_NAME'});
my $referer = $ENV{'HTTP_REFERER'} || ""; my $referer = $ENV{'HTTP_REFERER'} || "";
# Handle edge cases
$script_path =~ s@^[/\.]$@@;
foreach $script (@scripts) { foreach $script (@scripts) {
$found++ if $found++ if