From a2501aa043b55e227918e4b5b0631a4b0bf65665 Mon Sep 17 00:00:00 2001 From: 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