diff options
| author | miyagawa <miyagawa@65690182-5df0-0310-9871-95da5a3706e7> | 2007-08-29 10:04:16 +0000 |
|---|---|---|
| committer | miyagawa <miyagawa@65690182-5df0-0310-9871-95da5a3706e7> | 2007-08-29 10:04:16 +0000 |
| commit | c2f0c001e18dbfc178faa113f6cc958fef58f73e (patch) | |
| tree | 05fd01b3d55a7225ea12b8cc665959fbe1fa48ca /lib | |
| parent | Initial revision (diff) | |
| download | webservice-google-suggest-c2f0c001e18dbfc178faa113f6cc958fef58f73e.tar.gz | |
Checking in changes prior to tagging of version 0.02. Changelog diff is:
=== Changes ================================================================== --- Changes (revision 1164) +++ Changes (local) @@ -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 git-svn-id: http://svn.bulknews.net/repos/public/WebService-Google-Suggest/trunk@2320 65690182-5df0-0310-9871-95da5a3706e7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/WebService/Google/Suggest.pm | 4 |
1 files changed, 2 insertions, 2 deletions
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; |