Skip to content

Commit

Permalink
Initialize the output masks for sigprocmask. Undefined output masks
Browse files Browse the repository at this point in the history
may trigger warnings in some versions of Perl.  At least, I hope
http://www.nntp.perl.org/group/perl.cpan.testers/2009/07/msg4809122.html
warnings will be resolved by this change.  I wasn't able to reproduce
them myself.
  • Loading branch information
rcaputo committed Jul 29, 2009
1 parent 9dc65bf commit 3be6db4
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions poe/lib/POE/Resource/Signals.pm
Expand Up @@ -737,8 +737,8 @@ sub _data_sig_mask_all {
unless( $signal_mask_all ) {
$self->_data_sig_mask_build;
}
my $mask_temp;
sigprocmask( SIG_SETMASK, $signal_mask_all, $mask_temp )
my $mask_temp = POSIX::SigSet->new();
sigprocmask( SIG_SETMASK, $signal_mask_all, $mask_temp )
or _trap "<sg> Unable to mask all signals: $!";
}

Expand All @@ -749,8 +749,8 @@ sub _data_sig_unmask_all {
unless( $signal_mask_none ) {
$self->_data_sig_mask_build;
}
my $mask_temp;
sigprocmask( SIG_SETMASK, $signal_mask_none, $mask_temp )
my $mask_temp = POSIX::SigSet->new();
sigprocmask( SIG_SETMASK, $signal_mask_none, $mask_temp )
or _trap "<sg> Unable to unmask all signals: $!";
}

Expand Down

0 comments on commit 3be6db4

Please sign in to comment.