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 | 5bb52a43c6f8765c08dfdfc556766b0d3aed8929 (patch) | |
| tree | c41e9472e405d9cfe0341d9b5aaa022ffc6a9220 /qpid/cpp | |
| parent | fe1fca626713e731c36aed958b469e98110a8f0c (diff) | |
| download | qpid-python-5bb52a43c6f8765c08dfdfc556766b0d3aed8929.tar.gz | |
NO-JIRA: Small typo fix in the drain..pl example.
git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk@1418350 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'qpid/cpp')
| -rwxr-xr-x | qpid/cpp/bindings/qpid/examples/perl/drain.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/qpid/cpp/bindings/qpid/examples/perl/drain.pl b/qpid/cpp/bindings/qpid/examples/perl/drain.pl index 2da28f2867..e66184a160 100755 --- a/qpid/cpp/bindings/qpid/examples/perl/drain.pl +++ b/qpid/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 { |