Package: perl
Version: 5.8.8-6
Severity: normal
In the section "Queues: Passing Data Around" of perlthrtut, the
following snippet of code is mentioned:
use threads;
use Thread::Queue;
my $DataQueue = Thread::Queue->new;
$thr = threads->new(sub {
while ($DataElement = $DataQueue->dequeue) {
print "Popped $DataElement off the queue\n";
}
});
$DataQueue->enqueue(12);
$DataQueue->enqueue("A", "B", "C");
$DataQueue->enqueue(\$thr);
sleep 10;
$DataQueue->enqueue(undef);
$thr->join;
I've saved this and run it as "foo.pl":
$ perl foo.pl
Invalid value for shared scalar at /usr/share/perl/5.8/Thread/Queue.pm line 90.
A thread exited while 2 threads were running.
Testing shows that it's the following line that's causing the error:
$DataQueue->enqueue(\$thr);
Commenting that line out causes the program to run fine.
I don't know whether this is a documentation bug or a code bug.
- Andrew Sayers
-- System Information:
Debian Release: testing/unstable
APT prefers unstable
APT policy: (500, 'unstable'), (500, 'testing')
Architecture: i386 (i686)
Shell: /bin/sh linked to /bin/bash
Kernel: Linux 2.6.17-1-k7
Locale: LANG=en_GB, LC_CTYPE=en_GB (charmap=ISO-8859-1)
Versions of packages perl depends on:
ii libc6 2.3.6-15 GNU C Library: Shared libraries
ii libdb4.4 4.4.20-6 Berkeley v4.4 Database Libraries [
ii libgdbm3 1.8.3-3 GNU dbm database routines (runtime
ii perl-base 5.8.8-6 The Pathologically Eclectic Rubbis
ii perl-modules 5.8.8-6 Core Perl modules
Versions of packages perl recommends:
ii perl-doc 5.8.8-6 Perl documentation
-- no debconf information
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
