- 论坛徽章:
- 1
|
本帖最后由 ace_fei 于 2012-02-24 21:12 编辑
我今天将服务器上的perl升级到5.14.2,但是我发现打印$ua里面还使用/usr/lib/perl5/site_perl/5.8.8/LWP/下面的包,怎么能换成5.14的?
$ find `perl -e 'print join "\n",@INC'` -name "*UserAgent*"
/usr/lib/perl5/5.14.2/CPAN/LWP/UserAgent.pm
/usr/lib/perl5/site_perl/5.8.8/LWP/UserAgent.pm- #!/usr/bin/perl
- BEGIN{
- use lib '/usr/lib/perl5/5.14.2';
- }
- use 5.14.2;
- use LWP;
- use Data::Dumper;
- my $ua = LWP::UserAgent->new;
- print Dumper($ua);
复制代码$VAR1 = bless( {
'max_redirect' => 7,
'ssl_opts' => {
'verify_hostname' => 1
},
'protocols_forbidden' => undef,
'show_progress' => undef,
'handlers' => {
'response_header' => bless( [
{
'owner' => 'LWP::UserAgent::parse_head',
'callback' => sub { "DUMMY" },
'm_media_type' => 'html',
'line' => '/usr/lib/perl5/site_perl/5.8.8/LWP/UserAgent.pm:683'
}
], 'HTTP::Config' )
},
'no_proxy' => [],
'protocols_allowed' => undef,
'local_address' => undef,
'use_eval' => 1,
'requests_redirectable' => [
'GET',
'HEAD'
],
'timeout' => 180,
'def_headers' => bless( {
'user-agent' => 'libwww-perl/6.04'
}, 'HTTP::Headers' ),
'proxy' => {},
'max_size' => undef
}, 'LWP::UserAgent' ); |
|