Skip to content

Instantly share code, notes, and snippets.

@zby
Created August 2, 2009 08:13
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zby/159991 to your computer and use it in GitHub Desktop.
Save zby/159991 to your computer and use it in GitHub Desktop.
$VAR1 = bless(
{
'_protocol' => 'HTTP/1.0',
'_content' => '[1/5]
[2/5]
',
'_rc' => 200,
'_headers' => bless(
{
'client-date' => 'Fri, 31 Jul 2009 08:56:17 GMT',
'x-died' =>
'read timeout at lib/LWPx/Protocol/http_paranoid.pm line 394.',
'content-type' => 'text/plain',
'client-response-num' => 1,
'client-peer' => '127.66.74.70:9001',
'client-aborted' => 'die'
},
'HTTP::Headers'
),
'_msg' => 'OK',
'handlers' => {
'response_data' => [
{
'callback' => sub { "DUMMY" }
}
]
},
'_request' => bless(
{
'_time_begin' => 1249030575,
'_content' => '',
'_uri' => bless(
do { \( my $o = 'http://127.66.74.70:9001/1.5' ) },
'URI::http'
),
'_headers' => bless(
{ 'user-agent' => 'libwww-perl/5.825' },
'HTTP::Headers'
),
'_method' => 'GET',
'_uri_canonical' => $VAR1->{'_request'}{'_uri'}
},
'HTTP::Request'
)
},
'HTTP::Response'
);
Killing child pid : 7731
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment