On Feb 18, 2004, at 4:45 PM, Papo Napolitano wrote:

Heh, sorry... I simplified the code...
I'm still not posting the full source because it's like 15 files :(


while (1) { Fork("Whatever"); sleep 60; }

The first time you showed this loop, it had multiple fork()s in it. Now it's just one. Which is it.


sub Fork {
  my $module = shift;
  my @params = @_;
  my $pid = fork;
  return $pid if $pid;
  $module->Run(@params);
  exit;
}

This routine looks okay to my eyes. How long does a call to Run() generally take? Is it really just the one call to print you show?


[snip]

Uhmmm, sleep isn't working neither...

Define "isn't working" for us. How do you know it's not sleeping for 60 seconds?


James


-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>




Reply via email to