Форум сетевых администраторов (http://netadmin.ws/forum/index.php)
- Установка и настройка (http://netadmin.ws/forum/forumdisplay.php?forumid=28)
-- Проблема с require Time::Local; под Win98SE (http://netadmin.ws/forum/showthread.php?threadid=3389)

Проблема с require Time::Local; под Win98SE

Я начинающий работу с Перлом вебмастер и вопрос мой наверняка ламерский. Но прошу не игнорировать его.

Ставлю себе Links2 и пытаюсь сделать так, чтобы он работал полноценно под Win98SE.

В качестве сервера стоит Апач 1.3.20 подключены Perl, PHP, MySQL.
Все работает нормально, кроме одной вещи:

1. При попытке создать или модифицировать ссылку через админский интерфейс (admin.cgi) Links2 не хочет работать и пишет следующее:
fatal error: Can't locate Time/Local.pm in @INC (@INC contains: \HOME\CGI-BIN\ADMIN .) at \HOME\CGI-BIN\ADMIN/links.cfg line 161.
Строка 161 файла links.cfg входит в sub date_to_unix и имеет следующий вид:
require Time::Local;

Весь Sub такой:

quote:

---

sub date_to_unix {
#=========================================
my $date = shift; my $i;
my %months = map { $_ => $i++ } qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
my ($day, $mon, $year) = split(/-/, $date);

exists $months{$mon} or return undef;
$day = int($day); $year = $year - 1900;

require Time::Local;
my $time = 0;
eval {
$time = &Time::Local::timelocal(0,0,0, $day, $months{$mon}, $year);
};
if ($@) { die "invalid date format: $date - parsed as (day: $day, month: $months{$mon}, year: $year). Reason: $@"; }
return $time;
}

---