qpid-commits mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From mcpie...@apache.org
Subject svn commit: r1601971 - in /qpid/proton/trunk: examples/messenger/perl/server.pl proton-c/bindings/perl/lib/qpid/proton/Data.pm
Date Wed, 11 Jun 2014 17:50:52 GMT
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: commits-unsubscribe@qpid.apache.org
For additional commands, e-mail: commits-help@qpid.apache.org


Mime
View raw message