- my $ppid = getppid;
- $SIG{ALRM} = sub { alarm 1; kill SIGHUP => $ppid };
- alarm 1;
- $SIG{HUP} = sub { alarm 0; $rcv->reset }; # We can reset the alarm here.
+ $SIG{__WARN__} = sub {
+ my $warn = join '', @_;
+ $warn =~ s/\n\r/ /g;
+ print $wtr "!warn : $warn\n";
+ kill SIGUSR1 => $ppid if $ppid;
+ };
+ $SIG{TSTP} = sub {
+ $rcv->reset;
+ kill SIGUSR1 => $ppid if $ppid;
+ };
+ print $wtr "ok\n";