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
