pyldb: avoid segfault when adding an element with no name

[kai/samba-autobuild/.git] / pidl / lib / Parse / Pidl / Dump.pm

diff --git a/pidl/lib/Parse/Pidl/Dump.pm b/pidl/lib/Parse/Pidl/Dump.pm
index bf5811c116f8f5c240ce01a3ae5cbf26a1f44620..4e623db673a24233d2bb091e147ee1f879be6240 100644 (file)
--- a/pidl/lib/Parse/Pidl/Dump.pm
+++ b/pidl/lib/Parse/Pidl/Dump.pm
@@ -39,7 +39,7 @@ sub DumpProperties($)
     my $res = "";
 
     foreach my $d ($props) {
-       foreach my $k (keys %{$d}) {
+       foreach my $k (sort(keys %{$d})) {
            if ($k eq "in") {
                $res .= "[in] ";
                next;
@@ -244,7 +244,7 @@ sub DumpInterfaceProperties($)
     my($res);
 
     $res .= "[\n";
-    foreach my $k (keys %{$data}) {
+    foreach my $k (sort(keys %{$data})) {
            $first || ($res .= ",\n"); $first = 0;
            $res .= "$k($data->{$k})";
     }