I'm no master of perlguts either, but it occurs to me that there are two places where you are vulnerable to signal changes: 1. when you set the localized handler, 2. when the localization goes out of scope and the old handler is installed.

Your code traps only one of the two vulnerable points.

What happens if you do: 

#!/usr/bin/perl

use warnings FATAL => qw( all );
use strict;

use POSIX qw( :signal_h );

$SIG{ALRM} = sub { print "SIGARLM: main handler\n" };

sub f {
        my $sigset = POSIX::SigSet->new;
        my $blockset = POSIX::SigSet->new( SIGALRM );
        my $old_handler = $SIG{ALRM};

        # Install new handler
        sigprocmask(SIG_BLOCK, $blockset, $sigset );
        $SIG{ALRM} = sub { print "SIGALRM\n" }; # line 15
        sigprocmask(SIG_SETMASK, $sigset );

        # spin a bit.
        my $x;
        $x = $_ for 1..10;  

        # Restore old handler.
        sigprocmask(SIG_BLOCK, $blockset, $sigset );
        $SIG{ALRM} = $old_handler;
        sigprocmask(SIG_SETMASK, $sigset );
}

if (fork) {
        # parent
        f while 1;
} else {
        # child
        sleep 1;
        print "child starting\n";
        1 while kill ALRM => getppid;
}

[download]


TGI says moo

In reply to Re^3: Setting signal handlers considered unsafe? by TGI
in thread Setting signal handlers considered unsafe? by gnosek

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.