Author: mcpierce
Date: Wed Jun 11 17:50:51 2014
New Revision: 1601971
URL: http://svn.apache.org/r1601971
Log:
PROTON-602: Fix syntax errors in Perl.
Modified:
qpid/proton/trunk/examples/messenger/perl/server.pl
qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Data.pm
Modified: qpid/proton/trunk/examples/messenger/perl/server.pl
URL:
http://svn.apache.org/viewvc/qpid/proton/trunk/examples/messenger/perl/server.pl?rev=1601971&r1=1601970&r2=1601971&view=diff
==============================================================================
--- qpid/proton/trunk/examples/messenger/perl/server.pl (original)
+++ qpid/proton/trunk/examples/messenger/perl/server.pl Wed Jun 11 17:50:51 2014
@@ -58,8 +58,10 @@ sub dispatch {
$reply->set_properties($request->get_properties);
print "Dispatched " . $request->get_subject . "\n";
- foreach (keys $request->get_properties) {
- print "\t$_:" . $request->get_properties->{$_} . "\n";
+ my $properties = $request->get_properties;
+ foreach (keys %{$properties}) {
+ my $value = $properties->{%_};
+ print "\t$_: $value\n";
}
}
Modified: qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Data.pm
URL:
http://svn.apache.org/viewvc/qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Data.pm?rev=1601971&r1=1601970&r2=1601971&view=diff
==============================================================================
--- qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Data.pm (original)
+++ qpid/proton/trunk/proton-c/bindings/perl/lib/qpid/proton/Data.pm Wed Jun 11
17:50:51 2014
@@ -1196,7 +1196,7 @@ sub get_list_helper {
if ($self->next) {
my $value = $self->get_type->get($self);
- push($result, $value);
+ push(@{$result}, $value);
}
}
@@ -1213,7 +1213,7 @@ sub put_map_helper {
$self->put_map;
$self->enter;
- foreach(keys $hash) {
+ foreach(keys %{$hash}) {
my $key = $_;
my $value = $hash->{$key};
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
