getting closer on the timer

[fnord]

Here's what I've got for the timer:

#################################
# timer
#################################
sub timer
{
$timeout = 180;
$SIG{ALRM} = sub {die;};
eval
{
alarm($timeout);
$start = time();

print "Welcome to the game, here are your letters:\n";
&reg_roll();
print "\n";

$timeRemaining = $timeout - (time() - $start);
while ($timeRemaining > 0)
{
alarm($timeRemaining);
&input;
}
};
print "\nTime's up!\n";
}


For some reason it's not timing out after 180 seconds, it's running for anywhere from 6 to 9 minutes.

Any ideas as to why?

 

[Eric Frazier]

Hi,

What do time() and &input do/return? I don't see how you ever get to
&input if for some reason $timeremaining never gets to zero. Can't tell
much else withone knowing how the whole thing works though. First thing
I would do is print to a file the loop values, and make sure they are
incing like you expect them to. I also would wonder how alarm deals with
non integer numbers, maybe it just rounds to the int, but make it does
something weird.

Eric