This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to annotated tag v1.12 in repository libnet-openid-common-perl.
commit 3865a63846926a9bf22a4b50863691ae84d02138 Author: Roger Crew <c...@cs.stanford.edu> Date: Mon Oct 24 05:41:35 2011 -0700 Do not do _extract_head_markup_only on YADIS documents even in the case where we're retrieving HTML pages, we're only looking at the headers anyway. --- lib/Net/OpenID/Yadis.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/Net/OpenID/Yadis.pm b/lib/Net/OpenID/Yadis.pm index 90fdd97..d6b7bc8 100644 --- a/lib/Net/OpenID/Yadis.pm +++ b/lib/Net/OpenID/Yadis.pm @@ -109,7 +109,11 @@ sub _get_contents { my $self = shift; my ($url, $final_url_ref, $content_ref, $headers_ref) = @_; - my $res = Net::OpenID::URIFetch->fetch($url, $self->consumer, \&OpenID::util::_extract_head_markup_only); + # we do NOT do <body> elimination here because + # if it's an HTML document, we are only ever looking at the headers, and + # if it's a YADIS document, <body> elimination is not appropriate + # (YADIS is not HTML; film at 11) + my $res = Net::OpenID::URIFetch->fetch($url, $self->consumer, sub { } ); if ($res) { $$final_url_ref = $res->final_uri; -- 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