diff options
Diffstat (limited to 'qpid/cpp/bindings/qpid/examples/perl/drain.pl')
| -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 { |