Select Code to Download

  my $rcvd = 0 ;     # added counter for signals seen in eval's handle
+r

...
        $old_sighandlers{$sig} = ($SIG{$sig} || 'DEFAULT');
        $SIG{$sig} =  sub { $rcvd++ ; die ("SIG $sig $rcvd\n") };
...