diff options
| author | Jon Robertson <jonrober@stanford.edu> | 2015-06-08 13:08:43 -0700 |
|---|---|---|
| committer | Jon Robertson <jonrober@stanford.edu> | 2015-06-08 15:24:34 -0700 |
| commit | e0b2ecf96ebc49fabd9c4b6af5c50b203d2b4832 (patch) | |
| tree | ef1f19738791f8a50c47d23687ca9ebc93c96b05 /perl | |
| parent | 86533bf43d071048d654691dc18a3004b6142081 (diff) | |
Wallet/Server.pm: Fix sorting of ACLs and entries
There was an older mistake in sorting ACLs and entries, using && instead
of || when sorting.
Problem and fix pointed out to Chris Law.
Change-Id: Iab46b4bcbd842978f88a7d9f63958ebea4806413
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/lib/Wallet/Server.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/lib/Wallet/Server.pm b/perl/lib/Wallet/Server.pm index 3ef5954..946ba10 100644 --- a/perl/lib/Wallet/Server.pm +++ b/perl/lib/Wallet/Server.pm @@ -154,8 +154,8 @@ sub create_check { $self->error ($acl->error); return; } - @entries = sort { $$a[0] cmp $$b[0] && $$a[1] cmp $$b[1] } @entries; - @acl = sort { $$a[0] cmp $$b[0] && $$a[1] cmp $$b[1] } @acl; + @entries = sort { $$a[0] cmp $$b[0] || $$a[1] cmp $$b[1] } @entries; + @acl = sort { $$a[0] cmp $$b[0] || $$a[1] cmp $$b[1] } @acl; my $okay = 1; if (@entries != @acl) { $okay = 0; |