| Subject: | Bugfix for PDF::Report |
| Date: | Sat, 13 Jul 2013 00:22:57 -0400 |
| To: | bug-PDF-Report [...] rt.cpan.org |
| From: | Vic Kovacs <kovacsbv [...] pobox.com> |
Hi,
In version 1.34 of PDF::Report, I recommend changing line 656 to lowercase
the extension because Canon digital cameras have the extension in
uppercase. Currently, PDF::Report will not recognize files like
./Photos/IMG_1765.JPG.
655 $file =~ /\.(\w+)$/;
656 my $ext = lc $1;
657
658 my $sub = "image_$type{$ext}";
659 my $img = $self->{pdf}->$sub($file);
Vic Kovacs