This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to annotated tag v1.13 in repository libnet-openid-common-perl.
commit a9217e91d10e7021949fea16d03c14d5498b922a Author: Roger Crew <c...@cs.stanford.edu> Date: Sat Nov 5 18:21:21 2011 -0700 use numeric-time last_modified accessor, not raw header string (closes #47349) --- lib/Net/OpenID/URIFetch.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lib/Net/OpenID/URIFetch.pm b/lib/Net/OpenID/URIFetch.pm index 262dae4..909c30a 100644 --- a/lib/Net/OpenID/URIFetch.pm +++ b/lib/Net/OpenID/URIFetch.pm @@ -69,6 +69,7 @@ sub fetch { return Net::OpenID::URIFetch::Response->new( status => 200, content => $ref->{Content}, + last_modified => $ref->{LastModified}, headers => $ref->{Headers}, final_uri => $ref->{FinalURI}, ); @@ -94,7 +95,7 @@ sub fetch { if (my $etag = ($ref->{Headers}->{etag})) { $req->header('If-None-Match', $etag); } - if (my $ts = ($ref->{Headers}->{'last-modified'})) { + if (my $ts = $ref->{LastModified}) { $req->if_modified_since($ts); } } @@ -130,6 +131,7 @@ sub fetch { my $ret = Net::OpenID::URIFetch::Response->new( status => $res->code, + last_modified => $res->last_modified, content => $content, headers => $headers, final_uri => $final_uri, @@ -137,6 +139,7 @@ sub fetch { if ($cache && $res->code == 200) { my $cache_data = { + LastModified => $ret->last_modified, Headers => $ret->headers, Content => $ret->content, CacheTime => time(), @@ -155,7 +158,7 @@ sub fetch { package Net::OpenID::URIFetch::Response; use strict; -use constant FIELDS => [qw(final_uri status content headers)]; +use constant FIELDS => [qw(final_uri status content headers last_modified)]; use fields @{FIELDS()}; use Carp(); -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libnet-openid-common-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits