[perl #134179] Storable: sv_upgrade from type 7 down to type 1

On Wed, 05 Jun 2019 07:41:27 -0700, ilmari wrote:
> Hi Porters,
> 
> daxim reported on IRC that the following program errors with $subject
> 
> use Storable qw(dclone);
> use Scalar::Util qw(weaken);
> 
> my $foo = [qr//,[]];
> weaken($foo->[1][0][0] = $foo->[1]);
> dclone $foo;
> 

The attached fixes it for me.

Tony

---
via perlbug:  queue: perl5 status: new
https://rt.perl.org/Ticket/Display.html?id=134179

• [perl #134179] Storable: sv_upgrade from type 7 down to type 1 by Tony Cook via RT
• Re: [perl #134179] Storable: sv_upgrade from type 7 down to type 1 by ilmari
• [perl #134179] Storable: sv_upgrade from type 7 down to type 1 by Tony Cook via RT