Вообщем есть подпрограммка:
sub moduleconf_reader {
# Открываем конфигурационный файл модуля
open (moduleconf,"config/moduleconf.cfg") || die "Немогу найти конфигурационный файл модуля";
my (%moduleconf);
while () {
chomp; # удаляем перевод строки
s/#.*//; # убираем комментарии
s/^\\s+//; # убираем начальные пробелы
s/\\s+$//; # убираем конечные пробелы
s/\\\\</g;
s/\\>/\\>/g;
s/\\"/\\"/g;
s/:/\\&\\#58;/g;
s/\\\'/'/g;
s/\\`/`/g;
next unless length; # проверяем, не осталось ли чего
my ($var, $value) = split(/\\s*=\\s*/, $_, 2);
$moduleconf{$var} = $value;
}
close (moduleconf);
return (%moduleconf);
}
Выдаёт такую ошибку:
Unquoted string "moduleconf" may clash with future reserved word at E:/www/czone/cgi-bin/users/auth.pl line 100.\\r
Unquoted string "moduleconf" may clash with future reserved word at E:/www/czone/cgi-bin/users/auth.pl line 118.\\r
Я немогу понять, что не так. В чём ошибка?