| Subject: | Report Image-Grab-1.4.2 bug |
| Date: | Sat, 2 Apr 2011 10:28:05 +0800 |
| To: | bug-Image-Grab [...] rt.cpan.org |
| From: | luke song <dota.replays.net [...] gmail.com> |
perl -v:
This is perl, v5.10.1 (*) built for i686-linux-gnu-thread-multi
(with 40 registered patches, see perl -V for more detail)
Copyright 1987-2009, Larry Wall
Perl may be copied only under the terms of either the Artistic License or
the
GNU General Public License, which may be found in the Perl 5 source kit.
Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl". If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.
===================================================================================
Image-Grab-1.4.2 <http://search.cpan.org/~mahex/Image-Grab-1.4.2/>
===================================================================================
uname -a:
Linux dev1 2.6.35-24-generic #42-Ubuntu SMP Thu Dec 2 01:41:57 UTC 2010 i686
GNU/Linux
===================================================================================
test script:
#!/usr/bin/perl
use strict;
use warnings;
use Image::Grab;
my $pic = new Image::Grab;
my $url = "
http://ec4.images-amazon.com/images/I/41aqjGRrY%2BL._SL500_AA240_.jpg";
$pic->do_posix(undef);
$pic->url($url);
$pic->grab;
open(IMAGE, ">", "/img/test/o.jpg") || die "o.jpg: $!";
binmode IMAGE;
print IMAGE $pic->image;
close IMAGE;
===================================================================================
$pic->image will return undef,
I debug the Grab.pm, found that:
origianl_url:
http://ec4.images-amazon.com/images/I/41aqjGRrY%2BL._SL500_AA240_.jpg
go through expand_url funciton use strftime($self->url, @now) change the url
to:
http://ec4.images-amazon.com/images/I/41aqjGRrYAprilL._SL500_AA240_.jpg
%2B become April, image_url can't be found.