[poe-commits] poe/POE/Resource SIDs.pm,1.1,1.2
Brought to you by:
rcaputo
From: <rc...@us...> - 2003-05-31 18:32:21
|
Update of /cvsroot/poe/poe/POE/Resource In directory sc8-pr-cvs1:/tmp/cvs-serv26278/POE/Resource Modified Files: SIDs.pm Log Message: Add tests for session ID management. Index: SIDs.pm =================================================================== RCS file: /cvsroot/poe/poe/POE/Resource/SIDs.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SIDs.pm 13 May 2003 03:42:19 -0000 1.1 --- SIDs.pm 31 May 2003 18:32:18 -0000 1.2 *************** *** 32,44 **** sub _data_sid_finalize { ! # Don't bother if run() was never called. -><- Is this needed? ! #return unless $kr_run_warning & KR_RUN_CALLED; ! while (my ($sid, $ses) = each(%kr_session_ids)) { warn "!!! Leaked session ID: $sid = $ses\n"; } while (my ($ses, $sid) = each(%kr_session_to_id)) { warn "!!! Leak sid cross-reference: $ses = $sid\n"; } } --- 32,45 ---- sub _data_sid_finalize { ! my $finalized_ok = 1; while (my ($sid, $ses) = each(%kr_session_ids)) { warn "!!! Leaked session ID: $sid = $ses\n"; + $finalized_ok = 0; } while (my ($ses, $sid) = each(%kr_session_to_id)) { warn "!!! Leak sid cross-reference: $ses = $sid\n"; + $finalized_ok = 0; } + return $finalized_ok; } |