Eval not reseting

I'm trying to use the follow eval statement in a sub. The first time
through it works fine, but the second time it fails to timeout. I'm trying
to run it on a Solaris box with Perl v5.6.1. It looks like patch 11510
"eval 'format foo=' would loop indefinitely" has alrady been applied. Any
suggestions? I'm not going to be able to upgrade the version of Perl on
this box.

eval {
sigaction(SIGALRM, POSIX::SigAction->new("main::alrm"));
alarm 10; # Timeout after x seconds
@rpcinfo = `rpcinfo -p $server_address`;
alarm 0;
};


Thanks
.

Relevant Pages

  • Re: DLLInport from a ASP.NET web app using C#
    ... >it is declared in the managed code as: ... >static extern string getSerialEx(); ... >What I am not able to understand is that why it works the first time around ... >fails from second instance onwards. ...
    (microsoft.public.dotnet.framework.aspnet)
  • Re: Executing commands through Perl
    ... Its my first time using Perl and I would like some help in performing some relatively simple operations. ... You have to munge it before output. ... I want to know how to call a command line utility through Perl. ...
    (perl.beginners)
  • Re: Executing commands through Perl
    ... Its my first time using Perl and I would like some ... actually program names) to yum, to be installed into a Unix machine. ... I'm extracting the names using "split" command and pushing ...
    (perl.beginners)
  • Re: A Server call using onUnload
    ... When the user access your site for the first time (you can use the ... datetime and a timeout... ... check the first ocurrence of the ip on a certain date and make a diff ...
    (comp.lang.javascript)
  • Re: I cant believe it
    ... My friend on ... Fishing, on the other hand, didn't go so well. ... on a wakeboard for the first time tomorrow. ... If that fails, ...
    (rec.boats)