LINUX.ORG.RU

Perl, LWP, default_headers


0

0

Здравствуйте. Написал программу, у меня работает прекрасно. Стал в массы запускать, народ жалуется на ошибку: Can't locate object method "default_headers" via package "LWP::UserAgent" (perhaps you forgot to load "LWP::UserAgent"?)

Нашёл в интернете точно такой же вопрос задаваемый другими людьми. Ответа на него так и не нашёл. Проблема возникает только в ОС Windows. Почему ошибка возникает?

p.s. Только не спрашивайте, загрузил ли я LWP::UserAgent ;-)



use strict;
use warnings;
require LWP::UserAgent;

my $browser = LWP::UserAgent->new;

my $hdr = HTTP::Headers->new;
$hdr->push_header('Accept' => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8 ,image/png,*/*;q=0.5');
$hdr->push_header('Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7');
$hdr->push_header('Accept-Language' => 'ru-ru,ru;q=0.5');
$hdr->push_header('Http_Accept_Encoding' => 'gzip,deflate');
$hdr->push_header('Http_Connection' => 'keep-alive');
$browser->default_headers($hdr);

★★★

Используй use LWP::UserAgent, это позволит поймать ошибку на этапе интерпретации, а не на этапе выполнения. Если она возникает только под Win и используется perl от ActiveState, смотри исходный код пакета, возможно он отличается от оригинального.

anonymous
()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.