I've been having some memory issues with one of my programs so I assembled
this little script:
use strict;
use PDL;
use PDL::IO::Pic;
use PDL::IO::GD;
$|++;
for my $i (0 .. 500)
{
print "$i\n";
test();
}
sub test
{
my $path = 'largeimage.png';
my $im = PDL::IO::GD->new( {filename => $path} );
undef $im;
}
It yields the following output:
0
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
PDL::IO::GD::new(): Can't read in the input file!
gd-png error: cannot allocate image data
I wanted to provide the picture, but I'm at work and have no access to file
hosting sites. I know there is a way to append image data to a perl script,
but I haven't been able to figure it out. For you reference, the image is a
9134x6059 white png.
Does anyone know what I can do to avoid this type of crash?
Thanks,
Perldough
_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
