From 8e930418d9be1ca455d38f2f3ce4c013432539db Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 30 Oct 2007 16:24:51 +0000
Subject: [PATCH] dump current session with debug level > 5

git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@187 836a5e1a-633d-0410-964b-294494ad4392
---
 lib/CWMP/Store.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/CWMP/Store.pm b/lib/CWMP/Store.pm
index 7a69269..2c79628 100644
--- a/lib/CWMP/Store.pm
+++ b/lib/CWMP/Store.pm
@@ -171,6 +171,8 @@ sub ID_to_uid {
 
 	warn "#### ID_to_uid",dump( $ID, $state ),$/ if $self->debug > 4;
 
+	warn "##### current session = ",dump( $session ), $/ if $self->debug > 5;
+
 	$session->{ $ID }->{last_seen} = time();
 
 	my $uid;
-- 
2.20.1