| Subject: | Clone::Fast::clone segfaults under Perl 5.10 |
When certain flags are set on a data structure, Clone::Fast::clone()
will segfault.
Attached is a short script that, by toggling $Data::Dumper::Useperl,
will result in segfaults from clone() under Perl 5.10.
| Subject: | clone_fast_segfault.pl |
#!/usr/local/bin/perl
use strict;
use warnings;
use Clone::Fast qw(clone);
use Data::Dumper;
use Devel::Peek;
local $Data::Dumper::Useperl = 1;
my $hashref = {
'foo' => [
'Bar'
],
};
Dump( $hashref, 10 );
warn("Record before clone: ".Dumper($hashref));
Dump( $hashref, 10 );
my $clone = clone($hashref);
warn("Record after clone: ".Dumper($clone));