dump queue structure correctly if it exists
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 28 Oct 2007 15:00:19 +0000 (15:00 +0000)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 28 Oct 2007 15:00:19 +0000 (15:00 +0000)
git-svn-id: https://perl-cwmp.googlecode.com/svn/trunk@170 836a5e1a-633d-0410-964b-294494ad4392

lib/CWMP/Server.pm

index 12d8702..412d103 100644 (file)
@@ -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({