d9ffb3a72b
- add RPC-XML-0.77-fixtest.dif to make sure the serialization is reproducible even with hash randomization in perl 5.18 (RT#86187) OBS-URL: https://build.opensuse.org/request/show/181567 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-RPC-XML?expand=0&rev=26
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);
|