Skip Menu |

This queue is for tickets about the WWW-Google-PageRank CPAN distribution.

Report information
The Basics
Id: 18913
Status: resolved
Priority: 0/
Queue: WWW-Google-PageRank

People
Owner: YKAR [...] cpan.org
Requestors: jon+cpan [...] youramigo.com
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in:
  • 0.09
  • 0.10
  • 0.11
Fixed in: (no value)



Subject: PageRank fails with utf8 enabled
Turning utf-8 encoding on (intentionally or as a side-effect of using another module) causes WWW::Google::PageRank to fail, even if the URL being fetched doesn't contain any international characters. The checksum value that gets sent to Google is different. e.g. this works: /usr/bin/perl -MWWW::Google::PageRank -e 'print WWW::Google::PageRank->new->get("http://www.google.com") . "\n"' but this doesn't (returns undef, Google returns a 403 Forbidden): /usr/bin/perl -MWWW::Google::PageRank -e 'use encoding utf8; print WWW::Google::PageRank->new->get("http://www.google.com") . "\n"' but changing to iso-8859-1 does work: /usr/bin/perl -MWWW::Google::PageRank -e 'use encoding qw/iso-8859-1/; print WWW::Google::PageRank->new->get("http://www.google.com") . "\n"' Using perl 5.8.5.
thank you for report fixed in 0.12
From: jon+cpan [...] youramigo.com
On Tue Apr 25 10:05:48 2006, YKAR wrote: Show quoted text
> thank you for report > fixed in 0.12
Thanks for fixing it so promptly - works nicely in perl 5.8.5. However, I have since found that the bug persists in perl 5.8.0, even with version 0.12. I found that the fix for both versions of perl was to change the line in _compute_ch from my @url = map {ord $_} split '', $url; to my @url = unpack("C*", $url);
Subject: Re: [rt.cpan.org #18913] PageRank fails with utf8 enabled
Date: Wed, 19 Jul 2006 23:37:27 +0930
To: bug-WWW-Google-PageRank [...] rt.cpan.org
From: Jon Schutz <Jon.Schutz [...] YourAmigo.com>
Just noting that this is not fixed in v0.12 with perl 5.8.8. The patch I previously posted does work in 5.8.8, viz change this line: my @url = map {ord $_} split '', $url; to: my @url = unpack("C*", $url);
On Wed Jul 19 10:08:38 2006, jon.schutz@youramigo.com wrote: I'm sory for such long delay. Thank you for proposed patch, it was applied in 0.13. Show quoted text
> Just noting that this is not fixed in v0.12 with perl 5.8.8. > > The patch I previously posted does work in 5.8.8, viz change this line: > > my @url = map {ord $_} split '', $url; > > to: > > my @url = unpack("C*", $url); > > > >