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});
         }