Re: [Perldl] Memory problems with GD

[chm]

On 8/1/2012 7:58 PM, Afsheen Ghorashy wrote:

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?

Looks like you are running out of memory. I see a
->DESTROY method in the docs.  What happens if you
add that in your loop to clean up any memory allocated
outside of perl?

--Chris


_______________________________________________
Perldl mailing list
Perldl@jach.hawaii.edu
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl