qpid-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mcpie...@apache.org
Subject svn commit: r1418350 - /qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl
Date Fri, 07 Dec 2012 15:09:22 GMT
Author: mcpierce
Date: Fri Dec  7 15:09:21 2012
New Revision: 1418350

URL: http://svn.apache.org/viewvc?rev=1418350&view=rev
Log:
NO-JIRA: Small typo fix in the drain..pl example.

Modified:
    qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl

Modified: qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl
URL: http://svn.apache.org/viewvc/qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl?rev=1418350&r1=1418349&r2=1418350&view=diff
==============================================================================
--- qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl (original)
+++ qpid/trunk/qpid/cpp/bindings/qpid/examples/perl/drain.pl Fri Dec  7 15:09:21 2012
@@ -78,7 +78,7 @@ eval {
         my $redelivered = ($message->get_redelivered) ? "redelivered=True, " : "";
         print "Message(" . $redelivered . "properties=" . printProperties($message->get_properties())
. ", content='";        
         if ($message->get_content_type() eq "amqp/map") {
-            my $content = qpid::messasging::decode_map($message);
+            my $content = qpid::messaging::decode_map($message);
             map{ print "\n$_ => $content->{$_}"; } keys %{$content};
         }
         else {



---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org


Mime
View raw message