Re: thred's pids

[Elizabeth Mattijsen]

At 4:31 PM +0200 11/4/04, Mihai Vlad wrote:
At this script i get this response:
Scalars leaked: 1
USR1 ALRM
2
2
thread failed to start: Usage: Thread::Signal::_threadpid() at ./test line 13.
#!/usr/bin/perl
use threads;
use Thread::Signal;
use threads::shared;

sub bubu        {
                @tid = Thread::Signal->tids( 'ALRM' );
                print "@tid\n";
                $x   = Thread::Signal->_threadpid($tid[0]);
_threadpid is an internal subroutine, _not_ a class method.
Try:
   $x   = Thread::Signal::_threadpid($tid[0]);
instead.

                print "$x\n";
                }
Thread::Signal->register;
Thread::Signal->automatic(qw(ALRM USR1));
@automatic = Thread::Signal->automatic;
print "@automatic\n";
$thr    =       threads->new(\&bubu);
$threadtid      =       $thr->tid();
print "$threadtid\n";
$thr->join();
Liz