projects
/
perl-cwmp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e865da3
)
dump queue structure correctly if it exists
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 28 Oct 2007 15:00:19 +0000
(15:00 +0000)
committer
Dobrica 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
patch
|
blob
|
history
diff --git
a/lib/CWMP/Server.pm
b/lib/CWMP/Server.pm
index
12d8702
..
412d103
100644
(file)
--- 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;
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({
eval {
my $session = CWMP::Session->new({