Re^2: How to make sysread timeout

That alarm documentation gives a clear example, but it isn't working. Shouldn't the below code timeout every second?

  eval {
    $timeout = 1;
    local $SIG{ALRM} = sub { die "alarm\n" };
    alarm $timeout;
    $ret = sysread($sock, $buf, 100);
    alarm 0;
  };
[download]

Comment on Re^2: How to make sysread timeout Download Code

Replies are listed 'Best First'.
Re^3: How to make sysread timeout by kyle (Abbot) on Nov 01, 2007 at 19:59 UTC
What platform are you on (you haven't specified)? Windows in particular is not so good with signals. In that case, you might need to look at Re: Backticks and SIGALRM.	[reply]
Re^4: How to make sysread timeout by redss (Monk) on Nov 01, 2007 at 21:57 UTC
I'm on windows XP. There's no way to get that example to work on windows?	[reply]
Re^5: How to make sysread timeout by erroneousBollock (Curate) on Nov 02, 2007 at 05:46 UTC
As suggested above, use IO::Select. It's a much more flexible approach. There's a tutorial here. -David	[reply]
Re^6: How to make sysread timeout by BrowserUk (Patriarch) on Nov 02, 2007 at 07:27 UTC
Re^7: How to make sysread timeout by erroneousBollock (Curate) on Nov 02, 2007 at 12:22 UTC
Some notes below your chosen depth have not been shown here