[libnet-openid-common-perl] 03/09: Do not do _extract_head_markup_only on YADIS documents

Sun Feb 7 21:50:28 UTC 2016

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 <crew at 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

