diff options
| -rw-r--r-- | qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm b/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm index 64ee9f63b5..811a8660db 100644 --- a/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm +++ b/qpid/cpp/bindings/qpid/perl/lib/qpid/messaging/Receiver.pm @@ -115,6 +115,8 @@ sub get { } else { $message = $impl->get; } + + return new qpid::messaging::Message(undef, $message); } =pod |