Dear my friend, David. Since you told me that you meet the same problem (and I also use opensuse, mine is 10.2): Here what I've done as I solved the problem, thread below: http://www.perlmonks.org/?node_id=517871 as root I do so: 1. cd /PATH/TO/.cpan/build/Net-Google-1.0 2. cp -pR lib/Net/Google/Services blib/lib/Net/Google/ 3. perl -Mblib t/001-search.t (here, I typed in my API key as the value of $key) 4. perl -Mblib t/002-spelling.t (here, I typed in my API key as the value of $key) 5. perl -Mblib t/003-cache.t (here, I typed in my API key as the value of $key) 6. perl Build.PL 7. perl Build 6. make install ====== suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # whoami root suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # ls blib _build Build Build.PL Changes lib Makefile Makefile.PL MANIFEST META.yml README t suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # cp -pR lib/Net/Google/Services blib/lib/Net/Google/ suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # perl -Mblib t/001-search.t 1..5 ok 1 - Read Google API key ok 2 - use Net::Google; ok 3 - The object isa Net::Google ok 4 - The object isa Net::Google::Search Exception from service object: Invalid authorization key: ABQIAAAASzVWEo9_PkDjwjTkhPHJIxTovFWtVmuuMSRYt_dv3iXA1zQ3OxT9hxr3F7hqD-SZIzQb7p0QjzUobQ at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3412 ok 5 - Got results for related:http://perl.aaronland.net Google returned 0 results: suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # perl -Mblib t/002-spelling.t 1..5 ok 1 - Read Google API key ok 2 - use Net::Google; ok 3 - The object isa Net::Google ok 4 - The object isa Net::Google::Spelling Exception from service object: Invalid authorization key: ABQIAAAASzVWEo9_PkDjwjTkhPHJIxTovFWtVmuuMSRYt_dv3iXA1zQ3OxT9hxr3F7hqD-SZIzQb7p0QjzUobQ at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3412 not ok 5 - The correct spelling of 'neu yirk citee' is 'new york city' # Failed test 'The correct spelling of 'neu yirk citee' is 'new york city'' # at t/002-spelling.t line 41. # got: undef # expected: 'new york city' # Looks like you failed 1 test of 5. suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # perl -Mblib t/003-cache.t 1..5 ok 1 - Got Google API key ok 2 - use Net::Google; ok 3 - The object isa Net::Google ok 4 - The object isa Net::Google::Cache Exception from service object: Invalid authorization key: ABQIAAAASzVWEo9_PkDjwjTkhPHJIxTovFWtVmuuMSRYt_dv3iXA1zQ3OxT9hxr3F7hqD-SZIzQb7p0QjzUobQ at /usr/lib/perl5/vendor_perl/5.8.8/SOAP/Lite.pm line 3412 not ok 5 - Got cache for http://aaronland.net # Failed test 'Got cache for http://aaronland.net' # at t/003-cache.t line 42. # Looks like you failed 1 test of 5. suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # perl Build.PL Checking whether your kit is complete... Looks good
Checking prerequisites... Looks good Deleting Build Removed previous script 'Build' Creating new 'Build' script for 'Net-Google' version '1.0' suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # perl Build suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # make install /usr/bin/perl Build --makefile_env_macros 1 install Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/Search.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/tool.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/Spelling.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/Cache.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/Service.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/Response.pm (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/GoogleSearch.wsdl (unchanged) Skipping /usr/lib/perl5/site_perl/5.8.8/Net/Google/Services/GoogleSearch.wsdl (unchanged) Skipping /usr/share/man/man3/Net::Google::tool.3pm (unchanged) Skipping /usr/share/man/man3/Net::Google::Response.3pm (unchanged) Skipping /usr/share/man/man3/Net::Google::Search.3pm (unchanged) Skipping /usr/share/man/man3/Net::Google::Cache.3pm (unchanged) Skipping /usr/share/man/man3/Net::Google.3pm (unchanged) Skipping /usr/share/man/man3/Net::Google::Service.3pm (unchanged) Skipping /usr/share/man/man3/Net::Google::Spelling.3pm (unchanged) Writing /usr/lib/perl5/site_perl/5.8.8/i586-linux-thread-multi/auto/Net/Google/.packlist suseonthelap:/home/patrikh/arsip/installer/pm/Net-Google-1.0/Net-Google-1.0 # ====== Special for this error message: The correct spelling of 'neu yirk citee' is 'new york city' # Failed test 'The correct spelling of 'neu yirk citee' is 'new york city'' # at t/002-spelling.t line 41. # got: undef # expected: 'new york city' I found an information from activestate that it's a light bug. we can ignore the error message. ====== About your question:"do keys expire if you don't use them for a long time?". I don't know the answer because I am also new in Google business. I am only an employee as a (very) Junior Programmer whom get job assignment related to Google. Our API Key is also brand new (just created yesterday). ====== Please share your knowledge to me. Please keep telling me my mistake. I sent the pm sourcecode to your e-mail personally (not through our perl mail-list). ====== On Tue, 16 Oct 2007 22:35:03 -0000 [EMAIL PROTECTED] wrote: > > Use of uninitialized value in concatenation (.) or string at > > /usr/lib/perl5/site_perl/5.8.8/Net/Google/Service.pm line 80. > > Service description 'file:' can't be loaded: 404 File `' does not exist > > Hmmm. FWIW, I tried to reproduce your problem, but I needed to > install Net::Google on my machine (a SuSe 10 box). I got this exact > same error when trying to 'make test' (using my own Google key, but it > is a very old key - March 2006; do keys expire if you don't use them > for a long time?) > > -- > David Filmer (http://DavidFilmer.com) > > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > http://learn.perl.org/ > > -- Patrik Hasibuan <[EMAIL PROTECTED]> Junior Programmer -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
