threads error: Attempt to free unreferenced scalar...

The following code snippet produces the error:


    use threads;

    sub thr
    {
        # Causes 'Attempt to free unreferenced scalar: ...' message
        threads->new($_[0]);

        # Okay - no message
        #threads->new(shift);
    }

    thr(sub { })->join;


Is this the same problem as
    http://rt.perl.org/rt3/Ticket/Display.html?id=41138
and
    http://rt.perl.org/rt3/Ticket/Display.html?id=41816
but in the opposite direction (leaked vs unref'ed)?

• threads error: Attempt to free unreferenced scalar... by Jerry D. Hedden
• Re: threads error: Attempt to free unreferenced scalar... by Jerry D. Hedden
• Re: threads error: Attempt to free unreferenced scalar... by Rafael Garcia-Suarez