diff options
author | Kenneth Anthony Giusti <kgiusti@apache.org> | 2011-02-19 13:51:04 +0000 |
---|---|---|
committer | Kenneth Anthony Giusti <kgiusti@apache.org> | 2011-02-19 13:51:04 +0000 |
commit | 5b5e8fc7d7ed98f91e57db5c408d91796302da45 (patch) | |
tree | 9d3d482a9705af66470fb31eb100e72f857165e0 /qpid/cpp/bindings/qpid/examples/perl/spout.pl | |
parent | 2790ce755170f85afc66183e25f8165ef9c1dd0e (diff) | |
download | qpid-python-5b5e8fc7d7ed98f91e57db5c408d91796302da45.tar.gz |
QPID-2935: merge latest trunkqpid-2935
git-svn-id: https://svn.apache.org/repos/asf/qpid/branches/qpid-2935@1072330 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'qpid/cpp/bindings/qpid/examples/perl/spout.pl')
-rw-r--r-- | qpid/cpp/bindings/qpid/examples/perl/spout.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/qpid/cpp/bindings/qpid/examples/perl/spout.pl b/qpid/cpp/bindings/qpid/examples/perl/spout.pl index 50773a4fe2..7365e732bf 100644 --- a/qpid/cpp/bindings/qpid/examples/perl/spout.pl +++ b/qpid/cpp/bindings/qpid/examples/perl/spout.pl @@ -20,7 +20,7 @@ use strict; use warnings; -use cqpid; +use cqpid_perl; use Getopt::Long; use Time::Local; @@ -77,19 +77,19 @@ sub setProperties { } } -my $connection = new cqpid::Connection($url, $connectionOptions); +my $connection = new cqpid_perl::Connection($url, $connectionOptions); eval { $connection->open(); my $session = $connection->createSession(); my $sender = $session->createSender($address); - my $message = new cqpid::Message(); + my $message = new cqpid_perl::Message(); setProperties($message) if (@properties); if (@entries) { my $content = {}; setEntries($content); - cqpid::encode($content, $message); + cqpid_perl::encode($content, $message); } elsif ($content) { $message->setContent($content); @@ -98,7 +98,7 @@ eval { my $receiver; if ($replyto) { - my $responseQueue = new cqpid::Address($replyto); + my $responseQueue = new cqpid_perl::Address($replyto); $receiver = $session->createReceiver($responseQueue); $message->setReplyTo($responseQueue); } |