|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Timur Vafin 2:5020/400 28 Feb 2003 18:28:04
To : All
Subject : Ошибки в %EXPORT_TAGS под mod_perl
--------------------------------------------------------------------------------
Мир вертится, коннект нормальный, а посему приветствую тебя уважаемый, All!
Есть два хоста под mod_perl, в обоих используются разные модули с одинаковым
названием Proj::Defines.
В каждом подобные конструкции:
%EXPORT_TAGS = (
'tag1' => [ qw|%hash1| ],
'tag2' => [ qw|%hash2| ],
'common' => [ qw|%commonHash|],
);
foreach my $key (keys(%EXPORT_TAGS)) {
map {push @{$EXPORT_TAGS{$key}},$_ } @{$EXPORT_TAGS{'common'}}
}
$EXPORT_TAGS{'all'} = [map {@{$EXPORT_TAGS{$_}}} qw|tag1 tag2 common|];
@EXPORT_OK = @{$EXPORT_TAGS{'all'}};
В скритах из разных проектов подключаются одинаково
use lib '/full/path/to/proj/lib';
use Proj::Defines qw(:tag2);
Вовремя выполнения скриптов из разных проектов неожиданно вылеает
"tag2" is not defined in %Proj::Defines::EXPORT_TAGS at
/full/path/to/script.pl line NN
Перезапускаю апач и все нормально...
Получается, что где начинает использоваться чужой %EXPORT_TAGS...
Где напутал, не пойму...
Всё будет хорошо...
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
