Sorry, i also installed libwww-perl on suggestions from chatterbox that didn't help. here's what i did to the test.pl code and the output.
any ideas what else i can do?use Net::CDDBSearch; $loaded = 1; print "ok 1\n"; $cddb = Net::CDDBSearch->new(DEBUG=>1); $cddb->get_albums_artist('Megadeth'); $albums = $cddb->albums(); push(@s,$_) foreach keys %{$albums}; if ($#s > 0) { print "ok 2\n"; } else { print "not ok 2\n"; } $cddb = Net::CDDBSearch->new(); $cddb->get_albums_album('Youthanasia'); $albums = $cddb->albums(); push(@a,$_) foreach keys %{$albums}; if ($#a > 0) { print "ok 3\n"; } else { print "not ok 3\n"; } $cddb = Net::CDDBSearch->new(); $cddb->get_songs_album($a[0]); $info = $cddb->info(); $tracks = $cddb->tracks(); if ($info->{Title} ne '') { print "ok 4\n"; } else { print "not ok 4\n +"; } push(@t,$_) foreach keys %{$tracks}; if ($#t > 0) { print "ok 5\n"; } else { print "not ok 5\n"; } use Net::CDDBSearch; $loaded = 1; print "ok 1\n"; $cddb = Net::CDDBSearch->new(DEBUG=>1); $cddb->get_albums_artist('Megadeth'); $albums = $cddb->albums(); push(@s,$_) foreach keys %{$albums}; if ($#s > 0) { print "ok 2\n"; } else { print "not ok 2\n"; } $cddb = Net::CDDBSearch->new(); $cddb->get_albums_album('Youthanasia'); $albums = $cddb->albums(); push(@a,$_) foreach keys %{$albums}; if ($#a > 0) { print "ok 3\n"; } else { print "not ok 3\n"; } $cddb = Net::CDDBSearch->new(); $cddb->get_songs_album($a[0]); $info = $cddb->info(); $tracks = $cddb->tracks(); if ($info->{Title} ne '') { print "ok 4\n"; } else { print "not ok 4\n +"; } push(@t,$_) foreach keys %{$tracks}; if ($#t > 0) { print "ok 5\n"; } else { print "not ok 5\n"; }
In reply to Re^2: CDDBSearch does not install windows 7
by dlita
in thread CDDBSearch does not install windows 7
by dlita
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |