Author: mcpierce
Date: Fri Aug 30 20:32:34 2013
New Revision: 1519078
URL: http://svn.apache.org/r1519078
Log:
PROTON-414: Perl Messenger returns outgoing tracker on put.
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=1519078&r1=1519077&r2=1519078&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:32:34 2013
@@ -158,8 +158,12 @@ sub get_trusted_certificates {
sub put {
my ($self) = @_;
+ my $impl = $self->{_impl};
my $message = $_[1];
- cproton_perl::pn_messenger_put($self->{_impl}, $message->get_impl);
+
+ cproton_perl::pn_messenger_put($impl, $message->get_impl);
+
+ return cproton_perl::pn_messenger_outgoing_tracker($impl);
}
sub send {
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
