fix exception handling in perl < 5.14

dakkar · Mar 28, 2012 · 900c104 · 900c104
1 parent 0548366
commit 900c104
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/lib/Net/Stomp/Producer.pm b/lib/Net/Stomp/Producer.pm
@@ -219,9 +219,13 @@ sub send {
 
     try { $body = $self->serializer->($body) }
     catch {
-        local $@=$_;
+        if (eval {$_[0]->isa('Net::Stomp::Producer::Exceptions::CantSerialize')}) {
+            die $_[0];
+        }
+        my $prev=$_[0];
         Net::Stomp::Producer::Exceptions::CantSerialize->throw({
             message_body => $body,
+            previous_exception => $prev,
         });
     };
 

diff --git a/lib/Net/Stomp/Producer/Exceptions.pm b/lib/Net/Stomp/Producer/Exceptions.pm
@@ -69,6 +69,7 @@ use Data::Dump 'pp';
 has message_body => ( is => 'ro', required => 1 );
 has message_headers => ( is => 'ro', required => 0 );
 has reason => ( is => 'ro', default => q{sending the message didn't work} );
+has '+previous_exception' => ( init_arg => 'previous_exception' );
 
 sub as_string {
     my ($self) = @_;