Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Initialize the output masks for sigprocmask. Undefined output masks

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...
commit 3be6db4534a4db25758685357b9dffb107113747 1 parent 9dc65bf
@rcaputo authored
Showing with 4 additions and 4 deletions.
  1. +4 −4 poe/lib/POE/Resource/Signals.pm
View
8 poe/lib/POE/Resource/Signals.pm
@@ -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: $!";
}
@@ -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: $!";
}

0 comments on commit 3be6db4

Please sign in to comment.
Something went wrong with that request. Please try again.