# There are one or more update processes that listen for status updates
# from client programs.
-# $Id: spong-server.pl,v 1.39 2001/03/26 18:51:02 sljohnson Exp $
+# $Id: spong-server.pl,v 1.40 2001/03/26 19:22:52 sljohnson Exp $
use lib "@@LIBDIR@@";
# I'm the parent, save the new child pid
$proc->{'pid'} = $pid;
} else {
- # I'm the parent, call the function I'm assigned
+ # Clear out the sig mask we inherit from poppa
+ my $sigset = POSIX::SigSet->new;
+ sigprocmask(SIG_SETMASK, $sigset );
+
+ # I'm the child, call the function I'm assigned
&{$proc->{'func'}}();
}
}