0ac68ec7ef
- updated to 0.78 see /usr/share/doc/packages/perl-RPC-XML/ChangeLog 0.78 Thursday February 6, 2014, 08:00:00 PM -0800 * lib/RPC/XML.pm A patch to loop detection in smart_encode from Dag-Erling Smørgrav. Some other minor bits. * lib/RPC/XML/Procedure.pm RT #83108: Fixed a spelling error. Some other fixes, too. * lib/RPC/XML.pm RT #86187: Force key-ordering in struct as_string and serialize. Was getting some intermittent bug reports of failures in t/15_serialize.t that amounted to the keys in a fault struct not being in consistent order. * lib/RPC/XML.pm * t/15_serialize.t Undo the previous change and fix the test. The previous change didn't feel right, so this rolls it back and fixes the problem at the level of the test, instead. * Makefile.PL * lib/RPC/XML.pm * lib/RPC/XML/Client.pm * lib/RPC/XML/Server.pm Replace direct evals for loading optional modules with Module::Load. Required adding this to Makefile.PL because Module::Load is not core in 5.8.8. Also did some slight doc OBS-URL: https://build.opensuse.org/request/show/297258 OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-RPC-XML?expand=0&rev=28
23 lines
688 B
Plaintext
23 lines
688 B
Plaintext
Index: RPC-XML-0.78/lib/RPC/XML.pm
|
|
===================================================================
|
|
--- RPC-XML-0.78.orig/lib/RPC/XML.pm
|
|
+++ RPC-XML-0.78/lib/RPC/XML.pm
|
|
@@ -848,7 +848,7 @@ sub as_string
|
|
("<member><name>$_</name><value>",
|
|
$clean{$_},
|
|
'</value></member>')
|
|
- } (keys %clean)),
|
|
+ } (sort keys %clean)),
|
|
'</struct>';
|
|
}
|
|
|
|
@@ -860,7 +860,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::encode($key);
|