File RPC-XML-0.77-fixtest.dif of Package perl-RPC-XML

Index: RPC-XML-0.77/lib/RPC/XML.pm
===================================================================
--- RPC-XML-0.77.orig/lib/RPC/XML.pm
+++ RPC-XML-0.77/lib/RPC/XML.pm
@@ -842,7 +842,7 @@ sub as_string
                     ("<member><name>$_</name><value>",
                      $clean{$_},
                      '</value></member>')
-                } (keys %clean)),
+                } (sort keys %clean)),
                 '</struct>';
 }
 
@@ -854,7 +854,7 @@ sub serialize
     my $key;
 
     print {$fh} '<struct>';
-    for (keys %{$self})
+    for (sort keys %{$self})
     {
         ($key = $_) =~ s/$RPC::XML::XMLRE/$RPC::XML::XMLMAP{$1}/ge;
         utf8::downgrade($key);