mirror of
https://gitlab.alpinelinux.org/alpine/aports.git
synced 2025-04-12 12:36:40 +02:00
8c0846b99e
https://metacpan.org/release/Net-Jabber/ Access the Jabber protocol with Perl Needed by testing/perl-net-jabber-bot
13 lines
437 B
Diff
13 lines
437 B
Diff
Fixes t/protocol_rpc.t test expecting keys to be sorted
|
|
|
|
--- a/lib/Net/Jabber/Protocol.pm
|
|
+++ b/lib/Net/Jabber/Protocol.pm
|
|
@@ -2239,7 +2239,7 @@
|
|
elsif (ref($value) eq "HASH")
|
|
{
|
|
my $struct = $obj->AddValue()->AddStruct();
|
|
- foreach my $key (keys(%{$value}))
|
|
+ foreach my $key (sort keys(%{$value}))
|
|
{
|
|
$self->RPCEncode_Value($struct->AddMember(name=>$key),$value->{$key});
|
|
}
|