Here's some code...
Code: Select all
#!/usr/local/bin/perl -W
print "fault point 0 \n";
use Image::Magick;
print "fault point 0.5 \n";
my $im = Image::Magick->new(size => '299x450', background => 'white');
print "fault point 1.0 \n";
my $rc = $im->Read('xc:white');
print "fault point 1.1 \n";
Code: Select all
fault point 0
fault point 0.5
fault point 1.0
Segmentation fault (core dumped)