Perl. конфликт модулей? cant locate object method.

Посмотрел чуть подробнее на пространство имён %main::

после use Net::Telnet в нём появляется пространство имён FileHandle::

Думаю, что с этим знанием делать дальше

УМВР. перл 5.14 и оба модуля с cpan'a.

УМНХРЭТНР.

Ладно, вместо use Net::Telnet делаю require Net::Telnet в отдельном sub, где telnet нужен. Скорость работы не важна, зато работает.

> require Net::Telnet

use Net::Telnet (); даст такой же результат. какая версия модуля? попробуй поставить cpan’овский вместо дистрибного.

>use Net::Telnet ();

Нет, не даст, проверил. Я не слишком разбираюсь в экспорте имён в модулях perl, но в Net::Telnet в явном виде используется Exporter и @ISA

Поставить модуль из CPAN сейчас попробую

С модулем из CPAN без изменений

эх, весело у вас там в дебиане…

bash$ grep -v password test.pl
#!/usr/bin/perl

use strict;
use Net::Telnet;
use Net::SSH::Expect;

my $ssh = Net::SSH::Expect->new(
    user     => 'arsi',
    host     => 'localhost',
    raw_pty  => 1
);

$ssh->login();
print $ssh->exec('cat /etc/slackware-version');

bash$ ./test.pl
Slackware 13.37.0
bash$ _

может это не Net::Telnet виноват? можно на весь код посмотреть?

может это не Net::Telnet виноват? можно на весь код посмотреть?

В коде пока смотреть не на что, один telnet, а для ssh заглушка. Проблема воспроизводится на таком тесте:

#!/usr/bin/perl

use strict;
#use IO::Handle;
use Net::Telnet;
use Net::SSH::Expect;
my $user="a";
my $host="b";
my $pass="c";

    #print_log("start");
    my $ssh=Net::SSH::Expect->new(
        user    => $user,
        host    => $host,
        password    => $pass,
        raw_pty => 1
    );
    $ssh->login();

Кто виноват - пока не знаю. Но в Net::Telnet нашёл очень странный кусок кода:

    if ($INC{"IO/Handle.pm"}) {
        return IO::Handle->new;
    }
    else {
       require FileHandle;
       return FileHandle->new;
    }

закомментировал всю проверку и оставил только

return IO::Handle->new;

После этого Net::Telnet продолжил работать, но перестал экспортировать FileHandle:: в %main::

Странная какая-то была проверка, модуль IO::Handle есть и импортируется без ошибок...

И ещё. Если я меняю порядок импорта модулей, проблема перестаёт воспроизводиться даже без правки Net::Telnet

use Net::SSH::Expect;
use Net::Telnet;

> закомментировал всю проверку […] После этого Net::Telnet продолжил работать, но перестал экспортировать FileHandle:: в %main::

странно всё это…

bash$ perl -MNet::Telnet -E 'say $INC{"IO/Handle.pm"}'
/usr/lib64/perl5/IO/Handle.pm
bash$ _

сам Net::Telnet не грузит IO::Handle. похоже, он надеется, что его загрузят другие модули, но его надежды не оправдываются… рекомендую обновить перл ;)