Bug #45061 for Google-Search: Google::Search bug

Wed Apr 15 09:33:24 2009 paolo.tealdi [...] polito.it - Ticket created

CC:	rkrimen [...] cpan.org
Subject:	Google::Search bug
Date:	Wed, 15 Apr 2009 15:32:59 +0200
To:	bug-google-search [...] rt.cpan.org
From:	Paolo Tealdi <paolo.tealdi [...] polito.it>

Dear Robert, I noticed a little bug in Google::Search module. When i search for ISBN with Google::Search->Book and i use a Search->all method, the module reports this error : Can't call method "message" on an undefined value at /usr/local/lib/perl5/site_perl/5.8.8/Google/Search.pm line 313. Try a simple test program : #!/usr/bin/perl use Google::Search; my $key = 'A key '; my $referrer = 'http://www.my.site'; my $Search = Google::Search->Books(q => '9529950845', key=>$key, referrer=>$referrer ); print "Here\n"; my $Results = $Search->all; print "Here\n"; If i comment line 313 everything works. Best regards, Paolo Tealdi Ing. Paolo Tealdi Servizi Informatici per le Biblioteche Politecnico Torino Phone : +39-011-0906714 , FAX : +39-011-0906799 C.so Duca degli Abruzzi, 24 - 10129 Torino - ITALY Email : paolo.tealdi(At)polito.it Skype : tealdi.paolo

Wed Apr 15 13:26:20 2009 rkrimen [...] cpan.org - Taken

Wed Apr 15 13:47:30 2009 rkrimen [...] cpan.org - Correspondence added

This has been fixed, thanks for the report. FYI, I've also moved the repository to: http://github.com/robertkrimen/google-search/tree/master On Wed Apr 15 09:33:24 2009, paolo.tealdi@polito.it wrote: Show quoted text

> Dear Robert, > > I noticed a little bug in Google::Search module. > > When i search for ISBN with Google::Search->Book and i use a > Search->all method, the module reports this error : > > Can't call method "message" on an undefined value at > /usr/local/lib/perl5/site_perl/5.8.8/Google/Search.pm line 313. > > Try a simple test program : > > #!/usr/bin/perl > > use Google::Search; > my $key = 'A key '; > my $referrer = 'http://www.my.site'; > my $Search = Google::Search->Books(q => '9529950845', key=>$key, > referrer=>$referrer ); > > print "Here\n"; > my $Results = $Search->all; > print "Here\n"; > > > If i comment line 313 everything works. > > Best regards, > Paolo Tealdi > > > Ing. Paolo Tealdi Servizi Informatici per le Biblioteche > Politecnico Torino Phone : +39-011-0906714 , FAX : +39- > 011-0906799 > C.so Duca degli Abruzzi, 24 - 10129 Torino - ITALY Email : > paolo.tealdi(At)polito.it > Skype : tealdi.paolo >

Wed Apr 15 13:47:31 2009 The RT System itself - Status changed from 'new' to 'open'

Wed Apr 15 13:47:31 2009 rkrimen [...] cpan.org - Status changed from 'open' to 'resolved'