On Fri Apr 12 11:59:06 2002, guest wrote:
Show quoted text> I ha written an HTML Checking tool which I plan to put on the Web.
> Recently I have problems retrieving a stored HTTP::Response object. On
> retrieval it complains about
>
> HTMLAppCheckBackground: Cannot restore overloading on
> SCALAR(0x8576498) (package URI::http) at blib/lib/Storable.pm
> (autosplit into blib/lib/auto/Storable/_retrieve.al) line 315, at
> /home/virtual-servers/bigmite.devk.bigmite.co.uk/cgi-
> bin/swat/HTMLAppCheckBackground line 132
>
> This is a problem
I can't reproduce this, it may have been fixed in the past:
$ ~/perl/5.18.0-thr/bin/perl -MLWP::UserAgent -Ilib -MStorable=store -e '$ua = LWP::UserAgent->new; my $resp = $ua->get("
https://users.perl5.git.perl.org/~tonyc/"); store($resp, "resp")'
$ ~/perl/5.18.0-thr/bin/perl -Ilib -MData::Dumper -MStorable=retrieve -e '$x = retrieve("resp"); print Dumper($x)'
$VAR1 = bless( {
'_request' => bless( {
'_content' => '',
'_method' => 'GET',
'_headers' => bless( {
'user-agent' => 'libwww-perl/6.31'
}, 'HTTP::Headers' ),
'_uri' => bless( do{\(my $o = '
https://users.perl5.git.perl.org/~tonyc/')}, 'URI::https' )
}, 'HTTP::Request' ),
'_msg' => 'Protocol scheme \'https\' is not supported (LWP::Protocol::https not installed)',
'_rc' => 501,
'_content' => 'LWP will support https URLs if the LWP::Protocol::https module
is installed.
',
'_headers' => bless( {
'client-warning' => 'Internal response',
'content-type' => 'text/plain',
'::std_case' => {
'client-warning' => 'Client-Warning',
'client-date' => 'Client-Date'
},
'client-date' => 'Mon, 11 Dec 2017 22:54:50 GMT'
}, 'HTTP::Headers' )
}, 'HTTP::Response' );
Note the URI object was preserved.
Tony
