Leaked scalars

While working on tests for some new threads::shared
functionality, my test code started generating:

    Attempt to free unreferenced scalar: SV 0x15193f8, Perl
interpreter: 0x14b2830 at ./leak.pl line 36.
    Attempt to free unreferenced scalar: SV 0x15193c8, Perl
interpreter: 0x14b2830 at ./leak.pl line 36.
    Scalars leaked: 2

The following (also attached) reproduces this in blead:

    #!/usr/bin/perl
    use strict;
    use warnings;
    use threads;
    use threads::shared;

    sub _bork {
        return $_[0];
    }

    sub bork
    {
        if (@_ != 1) {
            require Carp;
            Carp::croak('Needs one and only one arg');
        }
        return _bork(shift, {});
    }

    {
        my %hsh = ('foo' => 2);
        eval {
            bork(%hsh);
        };
        $@ = undef;
    }

    my $foo :shared;
    $foo = bork(\$foo);

    threads->create(sub {
        $foo = 1;
    })->join();

I can remove 'use strict' and 'use warnings' and still
reproduce the leak, but if I change anything else, the leak
goes away.

Can anyone else reproduce this?  If so, can anyone identify
what's leaking?

• Leaked scalars by Jerry D. Hedden
• Re: Leaked scalars by Dave Mitchell
• Re: Leaked scalars by Jerry D. Hedden
• Re: Leaked scalars by Jerry D. Hedden
• Re: Leaked scalars by Jerry D. Hedden
• Re: Leaked scalars by Reini Urban
• Re: Leaked scalars by Jerry D. Hedden
• Re: Leaked scalars by Jerry D. Hedden