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/


Reply via email to