Hello all,
I am writing an app using Imager and Imager::QRCode, but I am stuck after compiled it to exe using pp.
In StrawberryPerl, all image formats are saved.
However, after compiled to exe, not all image formats saved (i.e. indicated by 0 KB).
I got errors: "Uninitialized value".
For simplicity, my code is similar like below.
Could you point me where part is wrong?
use strict;
use warnings;
use diagnostics;
use Imager;
use Imager::QRCode;
my $qrcode = Imager::QRCode->new (
size => 2,
margin => 2,
version => 1,
level => 'M',
casesensitive => 1,
lightcolor => Imager::Color->new(255, 255, 255),
darkcolor => Imager::Color->new(0, 0, 0),
);
my $img = $qrcode->plot('test');
my @type = ('jpeg', 'png', 'gif', 'tiff', 'bmp', 'pnm', 'raw', 'sgi',
+'tga');
for (@type) {
open IMAGE, '>', 'image.'.$_ or die $!;
binmode IMAGE or die $!;
print IMAGE $img->write(fh => \*IMAGE, type =>$_) or die $!;
}
close IMAGE or die $!;