[poe-commits] poe/lib/POE/Resource Sessions.pm,1.14,1.15
Brought to you by:
rcaputo
From: <rc...@us...> - 2004-06-27 16:24:02
|
Update of /cvsroot/poe/poe/lib/POE/Resource In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20489/lib/POE/Resource Modified Files: Sessions.pm Log Message: Include the _stop event handler's return value in the _child "lose" event. (!!!) Programs that rely on the child session receiving _stop after the parent receives a _child event will be negatively affected by this change. The order of these events has been reversed so _stop's return value can be passed to the parent session along with _child. Index: Sessions.pm =================================================================== RCS file: /cvsroot/poe/poe/lib/POE/Resource/Sessions.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Sessions.pm 13 Dec 2003 05:37:29 -0000 1.14 --- Sessions.pm 27 Jun 2004 16:23:52 -0000 1.15 *************** *** 485,488 **** --- 485,496 ---- } + # Referential integrity has been dealt with. Now notify the session + # that it has been stopped. + my $stop_return = $self->_dispatch_event( + $session, $self->get_active_session(), + EN_STOP, ET_STOP, [], + __FILE__, __LINE__, time(), -__LINE__ + ); + # If the departing session has a parent, notify it that the session # is being lost. *************** *** 491,507 **** $self->_dispatch_event( $parent, $self, ! EN_CHILD, ET_CHILD, [ CHILD_LOSE, $session ], __FILE__, __LINE__, time(), -__LINE__ ); } - # Referential integrity has been dealt with. Now notify the session - # that it has been stopped. - $self->_dispatch_event( - $session, $self->get_active_session(), - EN_STOP, ET_STOP, [], - __FILE__, __LINE__, time(), -__LINE__ - ); - # Deallocate the session. $self->_data_ses_free($session); --- 499,507 ---- $self->_dispatch_event( $parent, $self, ! EN_CHILD, ET_CHILD, [ CHILD_LOSE, $session, $stop_return ], __FILE__, __LINE__, time(), -__LINE__ ); } # Deallocate the session. $self->_data_ses_free($session); |