Attempt to free unreferenced scalar in simple script

Hi all,

I'm using perl 5.8.8 and threads 1.62. The following script:

#!/usr/bin/perl

use threads;
use strict;

my $test = sub {
   print("Hello, world\n");
};

my $thr = threads->create($test);
$thr->join();

produces a quite unexpected output:

Hello, world
Attempt to free unreferenced scalar: SV 0x8d3a700, Perl interpreter: 0x8c943c8

Is this a bug or am I doing something wrong ?

Thomas.