[poe-commits] poe/POE Kernel.pm,1.221,1.222

[<rc...@us...>]

Update of /cvsroot/poe/poe/POE
In directory sc8-pr-cvs1:/tmp/cvs-serv7171/POE

Modified Files:
	Kernel.pm 
Log Message:
Found and fixed the error in TRACE_DEFAULT: _dispatch_event() was
trying to look up session aliases and other information before a
session had started, so that stuff didn't exist.  Instant crash.


Index: Kernel.pm
===================================================================
RCS file: /cvsroot/poe/poe/POE/Kernel.pm,v
retrieving revision 1.221
retrieving revision 1.222
diff -C2 -d -r1.221 -r1.222
*** Kernel.pm	19 Nov 2002 17:42:06 -0000	1.221
--- Kernel.pm	19 Nov 2002 18:02:09 -0000	1.222
***************
*** 2245,2251 ****
  
    if (TRACE_EVENTS) {
      warn( "<ev> Dispatching event $seq ``$event'' (@$etc) from ",
!           $self->_data_alias_loggable($source_session), " to ",
!           $self->_data_alias_loggable($session)
          );
    }
--- 2245,2253 ----
  
    if (TRACE_EVENTS) {
+     my $log_session = $session;
+     $log_session =  $self->_data_alias_loggable($session)
+       unless $type & ET_START;
      warn( "<ev> Dispatching event $seq ``$event'' (@$etc) from ",
!           $self->_data_alias_loggable($source_session), " to $log_session"
          );
    }