From 45684377c17bb7bbd155aabbf8493cbd9c5b6ae1 Mon Sep 17 00:00:00 2001
From: "Darryl L. Pierce" <mcpierce@apache.org>
Date: Fri, 17 May 2013 12:36:10 +0000
Subject: QPID-4857: Fixed passing Perl Message to C++ code

The Perl code mistakenly passed the Perl Message object, rather than the
wrapped C+ Message object, to the release and reject methods.

git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@1483771 13f79535-47bb-0310-9956-ffa450edef68
---
 cpp/bindings/qpid/perl/lib/qpid/messaging/Session.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/cpp/bindings/qpid/perl/lib/qpid/messaging/Session.pm b/cpp/bindings/qpid/perl/lib/qpid/messaging/Session.pm
index af85731685..316f1fa817 100644
--- a/cpp/bindings/qpid/perl/lib/qpid/messaging/Session.pm
+++ b/cpp/bindings/qpid/perl/lib/qpid/messaging/Session.pm
@@ -112,7 +112,7 @@ sub rollback {
 
 =over
 
-=item $session->acknowledge( msg )
+=item $session->acknowledge
 
 Acknowledges that a specific message that has been received.
 
@@ -149,7 +149,7 @@ sub reject {
     my ($self) = @_;
     my $impl = $self->{_impl};
 
-    $impl->reject($_[1]);
+    $impl->reject($_[1]->get_implementation);
 }
 
 =pod
@@ -168,7 +168,7 @@ sub release {
     my ($self) = @_;
     my $impl = $self->{_impl};
 
-    $impl->release($_[1]);
+    $impl->release($_[1]->get_implementation);
 }
 
 =pod
-- 
cgit v1.2.1