diff options
| author | Darryl L. Pierce <mcpierce@apache.org> | 2014-07-31 13:46:29 +0000 |
|---|---|---|
| committer | Darryl L. Pierce <mcpierce@apache.org> | 2014-07-31 13:46:29 +0000 |
| commit | 83278ccb8966d9677b46665a4ffb428a3880172c (patch) | |
| tree | d18fa921214ef5522c4bbb7bc223d0ba7f4e1aa3 /qpid/cpp/bindings | |
| parent | c1f19d68217a4185a06beb06adb944cb0f8e7262 (diff) | |
| download | qpid-python-83278ccb8966d9677b46665a4ffb428a3880172c.tar.gz | |
NO-JIRA: Perl Receiver returning an unwrapped Message object.
git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk@1614890 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'qpid/cpp/bindings')
| -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 |