| Subject: | URGENT : Bug in WWW::Google::Video |
| Date: | Fri, 22 Aug 2008 18:23:22 +0530 |
| To: | bug-WWW-Google-Video [...] rt.cpan.org |
| From: | "shekar kcb" <shekarkcb [...] gmail.com> |
Hi, I just found a bug in WWW::Google::Video.
Its returning or Dieing for any of the URL given in Code. Below is the code
for which it is failed.
*<code>
use WWW::Google::Video
$m = WWW::Google::Video->new();
#$url_page="
http://video.google.com/videoplay?docid=-8408425303707644923&ei=5bCuSIfCOpOGwgPd963pAw&q=friday+sermon+mta
";
#$url_page="
http://video.google.com/videoplay?docid=-798710722180981711&ei=IbWuSI27C42ewgO2hcjdAw&q=mta+riday+sermon
";
#$url_page="
http://video.google.com/videoplay?docid=-3956813748619431134&ei=IbWuSI27C42ewgO2hcjdAw&q=mta+riday+sermon
";
#$url_page="
http://video.google.com/videoplay?docid=-7559979634660966124&ei=IbWuSI27C42ewgO2hcjdAw&q=mta+riday+sermon
";
#$url_page="
http://video.google.com/videoplay?docid=3619041155361182589&ei=IbWuSI27C42ewgO2hcjdAw&q=mta+riday+sermon
";
$url_page="http://video.google.com/videoplay?docid=-9172970639710038126";
$m->fetch($url_page)||die"CANT FETCH URL\n";
print "\n-----\n";
print $m->{url}||die("NOT FOUND URL\n");
print $m->{length}||die("FOUND NOTHING LENGHT\n");
print $m->{name}||die("FOUND NOTHING NAME\n");
print "\nENTERING FOREACH\n\n";
foreach(@{$m->{pic} })
{
print $_,"\n";
}
*
*</code>*
* OS:- Linux linux-test 2.6.16.21-0.8-smp #1 SMP Mon Jul 3 18:25:39 UTC 2006
i686 i686 i386 GNU/Linux*
*Distribution Name: WWW-Google-Video-0.4
Perl : v5.8.8 built for i586-linux-thread-multi
*Thanks
ShekarKCB