diff options
Diffstat (limited to 'qpid/cpp')
| -rwxr-xr-x | qpid/cpp/bindings/qpid/examples/perl/spout.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/qpid/cpp/bindings/qpid/examples/perl/spout.pl b/qpid/cpp/bindings/qpid/examples/perl/spout.pl index d8ac860143..74e589b617 100755 --- a/qpid/cpp/bindings/qpid/examples/perl/spout.pl +++ b/qpid/cpp/bindings/qpid/examples/perl/spout.pl @@ -70,7 +70,7 @@ sub setProperties { foreach (@properties) { my ( $name, $value ) = split( "=", $_ ); - $message->setProperty( $name, $value ); + $message->set_property( $name, $value ); } } |