summary refs log tree commit diff
diff options
context:
space:
mode:
authormiyagawa <miyagawa@65690182-5df0-0310-9871-95da5a3706e7>2007-08-29 10:04:16 +0000
committermiyagawa <miyagawa@65690182-5df0-0310-9871-95da5a3706e7>2007-08-29 10:04:16 +0000
commitc2f0c001e18dbfc178faa113f6cc958fef58f73e (patch)
tree05fd01b3d55a7225ea12b8cc665959fbe1fa48ca
parentInitial revision (diff)
downloadwebservice-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
-rw-r--r--.shipit7
-rw-r--r--Changes4
-rw-r--r--lib/WebService/Google/Suggest.pm4
3 files changed, 13 insertions, 2 deletions
diff --git a/.shipit b/.shipit
new file mode 100644
index 0000000..c02af08
--- /dev/null
+++ b/.shipit
@@ -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
diff --git a/Changes b/Changes
index 491af65..c836007 100644
--- a/Changes
+++ b/Changes
@@ -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;