From 605415ce181a87894a351eb8c1f8d6e275bff968 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 28 Oct 2007 15:00:19 +0000 Subject: [PATCH] dump queue structure correctly if it exists git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@170 836a5e1a-633d-0410-964b-294494ad4392 --- lib/CWMP/Server.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/CWMP/Server.pm b/lib/CWMP/Server.pm index 12d8702..412d103 100644 --- a/lib/CWMP/Server.pm +++ b/lib/CWMP/Server.pm @@ -138,7 +138,7 @@ sub process_request { my $sock = $prop->{client}; confess "no sock in ", ref( $self ) unless $sock; - warn "default CPE queue ( " . join(",",@{$prop->{default_queue}}) . " )\n" if defined($prop->{default_queue}); + warn "default CPE queue ", dump( $prop->{default_queue} ), "\n" if defined($prop->{default_queue}); eval { my $session = CWMP::Session->new({ -- 2.20.1