X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FBit-MorseSignals.git;a=blobdiff_plain;f=lib%2FBit%2FMorseSignals%2FReceiver.pm;h=a829f36645b7166f1c46329a9f1561ef154e5ebe;hp=87c0a5b3ad450980dc5087272aead1f40a937545;hb=8ce9fd9d5f4e6197d1a33a3fd11953cc1dc3b31f;hpb=0288f57c6aaf2cb133df80f13d78af66ea094902

diff --git a/lib/Bit/MorseSignals/Receiver.pm b/lib/Bit/MorseSignals/Receiver.pm
index 87c0a5b..a829f36 100644
--- a/lib/Bit/MorseSignals/Receiver.pm
+++ b/lib/Bit/MorseSignals/Receiver.pm
@@ -15,11 +15,11 @@ Bit::MorseSignals::Receiver - Base class for Bit::MorseSignals receivers.
 
 =head1 VERSION
 
-Version 0.04
+Version 0.05
 
 =cut
 
-our $VERSION = '0.04';
+our $VERSION = '0.05';
 
 =head1 SYNOPSIS
 
@@ -101,6 +101,7 @@ sub push {
     $self->{msg} = defined $demanglers[$self->{type}]
                     ? do {
                        my $msg = eval {
+                        local $SIG{__DIE__} = sub { warn @_ };
                         $demanglers[$self->{type}]->($self->{buf})
                        };
                        $@ ? undef : $msg;