diff options
| author | Darryl L. Pierce <mcpierce@apache.org> | 2012-12-07 15:09:21 +0000 |
|---|---|---|
| committer | Darryl L. Pierce <mcpierce@apache.org> | 2012-12-07 15:09:21 +0000 |
| commit | ab9637bce19343bdb0b3625226419de2e3915674 (patch) | |
| tree | 160004e167e72c39b3c2f8575d585eb8da7bd9e1 /cpp | |
| parent | a9416abf613bf280ecde207343a1e4a8967bd2cd (diff) | |
| download | qpid-python-ab9637bce19343bdb0b3625226419de2e3915674.tar.gz | |
NO-JIRA: Small typo fix in the drain..pl example.
git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk/qpid@1418350 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'cpp')
| -rwxr-xr-x | cpp/bindings/qpid/examples/perl/drain.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cpp/bindings/qpid/examples/perl/drain.pl b/cpp/bindings/qpid/examples/perl/drain.pl index 2da28f2867..e66184a160 100755 --- a/cpp/bindings/qpid/examples/perl/drain.pl +++ b/cpp/bindings/qpid/examples/perl/drain.pl @@ -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 { |