Skip Menu |
 

This queue is for tickets about the POE CPAN distribution.

Report information
The Basics
Id: 18342
Status: rejected
Priority: 0/
Queue: POE

People
Owner: Nobody in particular
Requestors: rcaputo [...] pobox.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: old exception handling patches and test from my inbox
Date: Fri, 24 Mar 2006 01:25:20 -0500
To: bug-poe [...] rt.cpan.org
From: Rocco Caputo <rcaputo [...] pobox.com>
This is a reminder to review the testcase and patch for relevance. They may be pointless now.

Message body is not shown because sender requested not to inline it.

--- POE/Kernel.pm.orig 2004-05-12 17:26:02.000000000 +0100 +++ POE/Kernel.pm 2004-05-12 17:45:01.000000000 +0100 @@ -850,14 +850,18 @@ $before = time(); } my $return; - if (wantarray) { - $return = - [ $session->_invoke_state($source_session, $event, $etc, $file, $line) ]; - } - else { - $return = - $session->_invoke_state($source_session, $event, $etc, $file, $line); - } + my $user_error = undef; + eval { + if (wantarray) { + $return = + [ $session->_invoke_state($source_session, $event, $etc, $file, $line) ]; + } + else { + $return = + $session->_invoke_state($source_session, $event, $etc, $file, $line); + } + }; + $user_error = $@; if (TRACE_STATISTICS) { my $after = time(); @@ -939,6 +943,7 @@ # Recover the event being processed. $kr_active_event = $hold_active_event; + die($user_error) if ($user_error); # Return what the handler did. This is used for call(). return @$return if wantarray; return $return; -- Rocco Caputo - rcaputo@pobox.com
Download poetest.t
text/x-perl 577b

Message body is not shown because sender requested not to inline it.



This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.