diff options
| -rw-r--r-- | .shipit | 7 | ||||
| -rw-r--r-- | Changes | 4 | ||||
| -rw-r--r-- | lib/WebService/Google/Suggest.pm | 4 |
3 files changed, 13 insertions, 2 deletions
@@ -0,0 +1,7 @@ +steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN + +# if directory, where the normal "make dist" puts its file. +#MakeDist.destination = ~/shipit-dist +#svn.tagpattern = ShipIt-%v + +#CheckChangeLog.files = ChangeLog @@ -1,4 +1,8 @@ Revision history for Perl extension WebService::Google::Suggest +0.02 Wed Aug 29 03:02:28 PDT 2007 + - Fixed per Google Suggest JavaScript updates + (Thanks to Lorimier Loic) + 0.01 Sat Dec 11 22:18:56 2004 - original version diff --git a/lib/WebService/Google/Suggest.pm b/lib/WebService/Google/Suggest.pm index 33446ba..41b5251 100644 --- a/lib/WebService/Google/Suggest.pm +++ b/lib/WebService/Google/Suggest.pm @@ -2,7 +2,7 @@ package WebService::Google::Suggest; use strict; use vars qw($VERSION); -$VERSION = '0.01'; +$VERSION = '0.02'; use Carp; use LWP::UserAgent; @@ -28,7 +28,7 @@ sub complete { $response->is_success or croak "Google doesn't respond well: ", $response->code; my $content = $response->content(); - $content =~ /^sendRPCDone\(frameElement, ".*?", new Array\((.*?)\), new Array\((.*?)\), new Array\(""\)\)\;$/ + $content =~ /^window\.google\.ac\.sendRPCDone\(frameElement, ".*?", new Array\((.*?)\), new Array\((.*?)\), new Array\(""\)\)\;$/ or croak "Google returns unrecognized format: $content"; my($queries, $results) = ($1, $2); my @queries = map { s/^"(.*?)"$/$1/; $_ } split /, /, $queries; |