quarantine: userlists: sort result

probably just cosmetic - but I noticed it while testing the patch that
fixes the sync of an empty userlist.

Signed-off-by: Stoiko Ivanov <s.ivanov@proxmox.com>

diff --git a/src/PMG/Quarantine.pm b/src/PMG/Quarantine.pm
index e19e96f9a357f1729b06520d4d3d26ad61c09fef..d06a88d6d366274023017c3b2c0351c81df3ed5b 100644 (file)
--- a/src/PMG/Quarantine.pm
+++ b/src/PMG/Quarantine.pm
@@ -59,8 +59,8 @@ sub add_to_blackwhite {
            }
        }
 
-       my $wlist = $dbh->quote(encode('UTF-8', join (',', keys %{$list->{WL}})) || '');
-       my $blist = $dbh->quote(encode('UTF-8', join (',', keys %{$list->{BL}})) || '');
+       my $wlist = $dbh->quote(encode('UTF-8', join (',', sort keys %{$list->{WL}})) || '');
+       my $blist = $dbh->quote(encode('UTF-8', join (',', sort keys %{$list->{BL}})) || '');
 
        if (!$delete) {
            my $maxlen = 200000;
@@ -81,7 +81,7 @@ sub add_to_blackwhite {
        $dbh->do($queries);
     }
 
-    my $values =  [ keys %{$list->{$name}} ];
+    my $values =  [ sort keys %{$list->{$name}} ];
 
     return $values;
 }