> Вот и я о том же: unless exists $INC{$pm} не спасает от use My::Module vs.
> require "/home/user/My/Module.pm".
В моей переменной $pm как раз My/Module.pm. Вот полный код этой части:
if (@imports) {
my $module = $imports[0]->firstChild->data;
my $pm = $module;
$pm =~ s{::}{/}g;
$pm .= '.pm';
require "$base/$pm" unless exists $INC{$pm};
$this->{'code'} = $module->import();
}
Только не спрашивай, зачем $pm = $module. Это тоже выточилось годами :-)
--
Andrew Shitov
______________________________________________________________________
[email protected] | http://shitov.ru
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
