🚀 go-pugleaf

Potrzebuje użyć wątków perlowych i natrafiłem na pewien problem. Napisałem 
sobie taki oto przykładowy fragment kodu:

my $queue = Thread::Queue->new();
my $t1 = threads->create(\&test_reader);
my $t2 = threads->create(\&test_writer);

$t2->join();

sub test_writer
{
	while (1)
	{
		sleep 1;
		my %t = (1 => "A", 2 => "B")
		$queue->enqueue(share(%t));
	}	
}

sub test_reader
{
	threads->detach();
	
	while (my $ref= $queue->dequeue())
	{
		my %hash = %{$ref}; # wyswietla np. HASH(0x1110970)
		print %hash; # tu juz nic nie wyswietla
	}
}

Jedna kolejka, 2 watki, jeden czyta z kolejki, drugi zapisuje. Niby 
proste. Problem pojawia sie jednak w funkcji test_reader. Otóż podczas 
wyciagania z kolejki dostaje referencje na hash (print $ref daje cos w 
stylu HASH(0x1110970)) i dotad - chyba - jest OK. Kiedy probuje wyciagnac 
hasha z referencji dostaję... pustkę.

Nie wiem co z tym fantem zrobic, moze ktos mnie naprowadzi?

-- 
Pozdrawiam,
menth0l