Imported Upstream version 0.67

1 files changed, 6 insertions, 3 deletions

diff --git a/lib/IO/Async/Timer/Periodic.pm b/lib/IO/Async/Timer/Periodic.pm
index 84da8d9..f99a43c 100644
--- a/lib/IO/Async/Timer/Periodic.pm
+++ b/lib/IO/Async/Timer/Periodic.pm
@@ -1,7 +1,7 @@
 #  You may distribute under the terms of either the GNU General Public License
 #  or the Artistic License (the same terms as Perl itself)
 #
-#  (C) Paul Evans, 2009-2012 -- leonerd@leonerd.org.uk
+#  (C) Paul Evans, 2009-2015 -- leonerd@leonerd.org.uk
 
 package IO::Async::Timer::Periodic;
 
@@ -9,7 +9,7 @@ use strict;
 use warnings;
 use base qw( IO::Async::Timer );
 
-our $VERSION = '0.64';
+our $VERSION = '0.67';
 
 use Carp;
 
@@ -223,10 +223,13 @@ sub _make_cb
 
       undef $self->{id};
 
-      $self->invoke_event( on_tick => );
+      my $ok = eval { $self->invoke_event( on_tick => ); 1 } or
+         my $e = $@;
 
       # detect ->stop
       $self->start if defined $self->{next_time};
+
+      die $e if !$ok;
    } );
 }