You are viewing a plain text version of this content. The canonical link for it is here.
Posted to commits@qpid.apache.org by mc...@apache.org on 2013/09/06 17:45:35 UTC
svn commit: r1520610 -
/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
Author: mcpierce
Date: Fri Sep 6 15:45:34 2013
New Revision: 1520610
URL: http://svn.apache.org/r1520610
Log:
NO-JIRA: Added missed calls to the Perl Message clear method
It wasn't clearing the body, properties or annotations as it should.
Modified:
qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
Modified: qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm
URL: http://svn.apache.org/viewvc/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm?rev=1520610&r1=1520609&r2=1520610&view=diff
==============================================================================
--- qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm (original)
+++ qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Message.pm Fri Sep 6 15:45:34 2013
@@ -66,7 +66,10 @@ sub get_impl {
sub clear {
my ($self) = @_;
cproton__perl::pn_message_clear($self->{_impl});
+ $self->{_body} = undef;
+ $self->{_properties} = {};
$self->{_instructions} = {};
+ $self->{_annotations} = {};
}
sub errno {
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org