X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXXml.pm;h=6bf1fa5967a5bbb4bc248312355899a2b9407e59;hb=0791dd94e297b6c14167f4252b91f06e84fbcf6f;hp=21a2c1653d97fd71bb06853cbb046b049e03b1be;hpb=edfc15583881f720a65516d975d26cdb6b7c8469;p=spider.git diff --git a/perl/DXXml.pm b/perl/DXXml.pm index 21a2c165..6bf1fa59 100644 --- a/perl/DXXml.pm +++ b/perl/DXXml.pm @@ -225,11 +225,11 @@ sub route $via ||= $self->{'-via'} || $self->{to}; unless ($via) { - dbg("XML: no route specified (" . $self->toxml . ")") if isdbg('chanerr'); + dbg("XML: no route specified (" . dd($self) . ")") if isdbg('chanerr'); return; } if (ref $fromdxchan && $via && $fromdxchan->call eq $via) { - dbg("XML: Trying to route back to source (" . $self->toxml . ")") if isdbg('chanerr'); + dbg("XML: Trying to route back to source (" . dd($self) . ")") if isdbg('chanerr'); return; } @@ -258,12 +258,12 @@ sub route } if ($fromdxchan->call eq $via) { - dbg("XML: Trying to route back to source (" . $self->toxml . ")") if isdbg('chanerr'); + dbg("XML: Trying to route back to source (" . dd($self) . ")") if isdbg('chanerr'); return; } if ($dxchan == $main::me) { - dbg("XML: Trying to route to me (" . $self->toxml . ")") if isdbg('chanerr'); + dbg("XML: Trying to route to me (" . dd($self) . ")") if isdbg('chanerr'); return; }