*** glibc detected *** /usr/bin/perl: double free or corruption (!prev): 0x000000000076a710 ***

##</code><code>##

-nan
Segmentation fault

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

my $image = Image::Magick->new(
   size => "600x600",
              );
$image->Read("xc:white");
$image->Draw(
   primitive => 'line',
   points    => "300,100 300,500",
   stroke    => '#600',
);

$image->Set(magick=>'jpg');                                                    
my $blob = $image->ImageToBlob();


my $image1 = Image::Magick->new(magick=>'jpg');
$image1->BlobToImage( $blob );
#$output->Resize(geometry=>'160x120');


my($width, $height, $format) = $image1->Get('width', 'height', 'format');
print "$width" . "x" . "$height\t$format image.\n"; # works


# different errors depending on left side structure
my @features = $image1->Features(1); # <--- silent segfault here
print "@features\n";

#my $features = $image1->Features(1); # <--- silent segfault here
#print "$features\n";

$image1->Write( $0.'.jpg');