From a2501aa043b55e227918e4b5b0631a4b0bf65665 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Wed, 9 Mar 2005 10:30:19 +0000
Subject: [PATCH] make sure external origin is preserved on reply
---
perl/Thingy/Ping.pm | 1 +
1 file changed, 1 insertion(+)
diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index d87ad456..02fc5cef 100644
--- a/perl/Thingy/Ping.pm
+++ b/perl/Thingy/Ping.pm
@@ -96,6 +96,7 @@ sub handle
my $repthing = $thing->new_reply;
$repthing->{out} = 0;
$repthing->{id} = $thing->{id};
+ $repthing->{o} = $thing->{o} if $thing->{o};
$repthing->send($dxchan) if $repthing;
} else {
--
2.43.0