|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mikhail Polykovsky 2:5020/400 18 Mar 2003 10:28:04
To : Artem Chuprina
Subject : Re[2]: Откуда такое?
--------------------------------------------------------------------------------
MP>> Subroutine DBD::mysql::dr::_ListDBs redefined at
MP>> c:/nusphere/perl/site/lib/DBD/m ysql.pm line 21.
MP>> Что это может быть и стоит ли с этим бороться, если вроде как все
MP>> работает?
AC> Это скорее всего ты устроил циклическую зависимость модулей. В принципе оно
AC> жить не слишком мешает, но некоторым сигналом об ошибке в дизайне является.
Я проверил. Модули вызывают друг друга по дереву, то есть цикла нет.
Все экспорты в EXPORT_OK, по умолчанию вроде ничего не передается.
Причем даже вызов модуля
=============== Mod.pm ===============
package My::Mod;
use strict;
use My::Module;
use DBD::MySQL;
1;
======================================
выдает те же варнинги. Что еще почитать? Куда посмотреть?
============== Module.pm =============
package My::Module;
use strict;
use Exporter;
our @ISA = ('Exporter');
our @EXPORT_OK = qw(&f1 &f2);
use Config::IniFiles;
use My::Common qw($cfg);
use CGI qw/:standard/;
use CGI::Cookie;
use DBD::mysql;
use POSIX;
use locale;
setlocale(LC_CTYPE, "Cp-1251");
# и так далее
# всякие функции
1;
====================================
============= Common.pm ============
package My::Common;
use strict;
use Exporter;
our @ISA = ('Exporter');
our @EXPORT_OK = qw($cfg);
use Config::IniFiles;
use DBD::MySQL;
# и так далее
# всякие функции
1;
====================================
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: UTC (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
