fix return pings

diff --git a/perl/DXXml/Ping.pm b/perl/DXXml/Ping.pm
index a9d72083c213df926ef80157c83453973ac9c7fe..f2620e6b8eb6ada1abd5497cff19e5b3f0a7b635 100644 (file)
--- a/perl/DXXml/Ping.pm
+++ b/perl/DXXml/Ping.pm
@@ -37,6 +37,7 @@ sub handle_input
                                                                           oid=>$self->{id},
                                                                           ot=>$self->{t}
                                                                          );
+                       $dxchan->send($rep->toxml);
                } else {
                        handle_ping_reply($dxchan, $self->{o}, $self->{ot}, $self->{oid});
                }