Author: mcpierce
Date: Fri Aug 30 20:56:47 2013
New Revision: 1519085
URL: http://svn.apache.org/r1519085
Log:
PROTON-415: Perl Messenger returns incoming tracker on get.
Modified:
qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Messenger.pm
Modified: qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Messenger.pm
URL:
http://svn.apache.org/viewvc/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Messenger.pm?rev=1519085&r1=1519084&r2=1519085&view=diff
==============================================================================
--- qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Messenger.pm
(original)
+++ qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Messenger.pm Fri
Aug 30 20:56:47 2013
@@ -175,10 +175,12 @@ sub send {
sub get {
my ($self) = @_;
-
+ my $impl = $self->{_impl};
my $message = $_[1] || new proton::Message();
- cproton_perl::pn_messenger_get($self->{_impl}, $message->get_impl());
- return $message;
+
+ cproton_perl::pn_messenger_get($impl, $message->get_impl());
+
+ return cproton_perl::pn_messenger_incoming_tracker($impl);
}
sub receive {
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
