Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^4: LPW $response->decoded_content different on different servers ?

by Transalp (Sexton)
on Apr 30, 2015 at 08:05 UTC ( [id://1125220] : note . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    do { require MIME::Base64; my $a = bless({ _content => MIME::Base64::d
    +ecode("ICAKICAKPCFET0NUWVBFIGh0bWw+PGh0bWwgPjxoZWFkPj...PC9odG1sPgog"
    +)
    , _headers => bless({ "::std_case" => { "client-date" => "Client-Date"
    ...
    , "URI::http"), _uri_canonical => 'fix', }
    , "HTTP::Request"), }
    , "HTTP::Response"); $a->{_request}{_uri_canonical} = \${$a->{_request
    +}{_uri}}; $a; }
    
  2. or download this
    do { require MIME::Base64; my $a = bless({ _content => MIME::Base64::d
    +ecode("ICAKICAKPCFET0NUWVBFIGh0bWw+PGh0bWwgPjxoZWFkPj...PC9odG1sPgog"
    +)
    , _headers => bless({ "accept-ranges" => "bytes"
    ...
    , "URI::http"), _uri_canonical => 'fix', }
    , "HTTP::Request"), }
    , "HTTP::Response"); $a->{_request}{_uri_canonical} = \${$a->{_request
    +}{_uri}}; $a; }