make sure external origin is preserved on reply

diff --git a/perl/Thingy/Ping.pm b/perl/Thingy/Ping.pm
index d87ad4567a891801b54ab2a6acd292759b92b094..02fc5cef51bea6caf1176bce93e4a98d4729d08a 100644 (file)
--- 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 {