[- if ($fdat{cnt} == 0)
{
$Apache::Session::Win32::sessions = {} if ($HTML::Embperl::TEST::loop++) ;
$mdat{cnt} = 0 ;
}
-]
$mdat{cnt} = [+ $mdat{cnt} ; +]
$fdat{cnt} = [+ $fdat{cnt} ; +]
equal ? [+ ($mdat{cnt} == $fdat{cnt})?'yes':'no' ; +]
[- @ks = grep (!/^_/, sort (keys %mdat)) ; $num = keys (%mdat) - $#ks - 1 ; -]
[+ $num > 0?"ok (num=$num)":"Not a session hash (num=$num)" +]
[- $mdat{cnt}++ ; -]