Weakened refs always clone as undef [rt.cpan.org #113033]

[atoomic]

Migrated from rt.cpan.org#113033 (status was 'new')

Requestors:

• [email protected]

From [email protected] on 2016-03-15 06:36:21:

Hi,

Your very-useful module Clone does not seem to handle weakened refs:
They always clone as undef.

Please run the test script below to see the problem.
(bug observed in Clone version 0.38, the latest in CPAN)

Thanks,
-Jim Avera

P.S. The author email in the source ([email protected]) bounced.

#!/usr/bin/perl
use strict; use warnings;

package Parent;
sub new { bless { children => [] }, shift }

package Child;
use Scalar::Util qw(weaken);

sub new {
   my ($class, $parent) = @_;
   my $child = bless { parent => $parent }, $class;
   weaken($child->{parent});  ### COMMENT OUT TO REMOVE BUG
   push @{ $parent->{children} }, $child;
   return $child;
}

package main;
use Data::Dumper;
use Clone qw(clone);

my $p = Parent->new(foo => 123, bar => 456);
my $c = Child->new($p);
my $c_clone = clone($c);

warn Data::Dumper->Dump([$c], ["c"]);
warn Data::Dumper->Dump([$c_clone], ["c_clone"]);

die "bug" if ! defined $c->{parent};
die "bug" if ! defined $c_clone->{parent};

[atoomic]

I think this would be very good to detect/fix