- $SIG{__WARN__} = sub { print $wtr "!warn\n"; };
- my $rcv = new IPC::MorseSignals::Receiver \%SIG, done => sub {
- print $wtr Dumper($_[1]), "\n";
+ my $rcv = IPC::MorseSignals::Receiver->new(\%SIG, done => sub {
+ my $msg = Dumper($_[1]);
+ $msg =~ s/\n\r/ /g;
+ print $wtr "$msg\n";
+ });
+ $SIG{__WARN__} = sub {
+ my $warn = join '', @_;
+ $warn =~ s/\n\r/ /g;
+ print $wtr "!warn:$warn\n";