On Feb 10, Angerstein said:
>sub selfalarm {
> $waittime = @_;
Above is your problem. You are assigning the NUMBER of elements in @_ to
$waittime, not the first element. Use one of the following:
my $waittime = shift;
my ($waittime) = @_;
my $waittime = $_[0];
> $ppid = getppid();
> select (undef,undef,undef, $waittime);
> kill 14 => ppid;
I'm sure you meant $ppid;
>SIG{ALRM} = sub {die;}
And $SIG{ALRM}.
> &selfalarm("0.1");
And there's no reason to quote a number.
--
Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/
RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/
<stu> what does y/// stand for? <tenderpuss> why, yansliterate of course.
[ I'm looking for programming work. If you like my work, let me know. ]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
