23 lines
691 B
Plaintext
23 lines
691 B
Plaintext
|
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);
|