In Net::OpenID::URIFetch is this code:
if (my $ts = ($ref->{Headers}->{'last-modified'})) {
$req->if_modified_since($ts);
}
If I am not mistaken, last-modified is a string, and if_modified_since
expects numeric.
I believe instead of asking for the Last-Modified header, youw ant to
call $res->last_modified directly, which gives you the value. Or
HTTP::Date::str2time($ts). Which is how I am patching my local copies,
so I don't continue to get errors like:
Argument "Thu, 18 Jun 2009 16:55:05 GMT" isn't numeric in gmtime at
/usr/local/lib/perl5/site_perl/5.10.0/HTTP/Date.pm line 36.
Cheers!
--
Chris Nandor pudge@pobox.com http://pudge.net/
Slashdot / SourceForge pudge@slashdot.org http://slashdot.org/