Juban, Nix said:
> ok, i tried in UNIX and got no more errors but it doesnt expire after 30
> seconds as expected.
By whom ;-)
> ##!/usr/intel/bin/perl -w
> use strict;
> use warnings;
>
> my $time_to_die=0;
> my $timeout=30; #in seconds
> my @e=qw(| \ - /);
> $SIG{ALRM} = sub { $time_to_die=1; };
>
> alarm($timeout);
> while(!$time_to_die)
>
> {
> while (1)
Are you sure you want this infinite loop here?
> { foreach (@e)
> {
> print $_."\b";
> }
> }
> }
--
Paul Johnson - [EMAIL PROTECTED]
http://www.pjcj.net
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
