[Moscow.pm] Плагины в perl программах

[Andrew Shitov]

> Вот и я о том же: 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
______________________________________________________________________
andy на shitov.ru | http://shitov.ru