#!/opt/perl-5.8.2/bin/perl -w

use threads;
use Thread::Queue;

$queue = new Thread::Queue;

$queue->enqueue("foo");         ## Works ok
$queue->enqueue("bah");         ## Works ok

$text = "eeek";
$text_ref = \$text;

$queue->enqueue($text);         ## Works ok
$queue->enqueue($text_ref);     ## Does not work
[download]