qpid-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mcpie...@apache.org
Subject svn commit: r1519078 - /qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Messenger.pm
Date Fri, 30 Aug 2013 20:32:34 GMT
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: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org


Mime
View raw message