diff options
Diffstat (limited to 'lib/WebService/Google/Suggest.pm')
| -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; |