Re^4: Trying to thread a daemon with threads and Thread::Queue

Select or download this

my $tid = threads->tid();
my $fno = $Q->dequeue();
last if $fno eq 'STOP';
$log->warning("Thread ($tid) : fileno: $fno");
open my $socket, '+<&='.$fno or dienice("Thread ($tid) could not reope
+n socket: $!");

Select or download this

Thread (1) : fileno: 5
Thread (1) could not reopen socket: Bad file descriptor at line 152

Select or download this

Thread (2) : fileno: ÆD²©ê
Thread (3) : fileno: 5

Select or download this

Thread (1) : fileno: 5
Thread (2) : fileno: ÆýD²©ê

Select Code to Download