From 395ac7aa91f571981cf20d5434ce3b13e1b65bcf Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 11 Jan 2006 22:03:53 +0000
Subject: [PATCH] fix return pings

---
 perl/DXXml/Ping.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/DXXml/Ping.pm b/perl/DXXml/Ping.pm
index a9d72083..f2620e6b 100644
--- 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});
 		}
-- 
2.43.0