From 8b4f558134a618660c424d2dabd90033b7b8e4b9 Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Wed, 10 Oct 2007 20:15:30 +0000
Subject: Make enctype changes in sorted order so that the history trace is
 reliable and can be tested.

---
 perl/Wallet/Object/Keytab.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl/Wallet/Object/Keytab.pm b/perl/Wallet/Object/Keytab.pm
index a818f15..f91abff 100644
--- a/perl/Wallet/Object/Keytab.pm
+++ b/perl/Wallet/Object/Keytab.pm
@@ -428,8 +428,9 @@ sub enctypes_set {
 
         # When inserting new enctypes, we unfortunately have to do the
         # consistency check against the enctypes table ourselves, since SQLite
-        # doesn't enforce integrity constraints.
-        for my $enctype (keys %enctypes) {
+        # doesn't enforce integrity constraints.  We do this in sorted order
+        # to make it easier to test.
+        for my $enctype (sort keys %enctypes) {
             $sql = 'select en_name from enctypes where en_name = ?';
             my $status = $self->{dbh}->selectrow_array ($sql, undef, $enctype);
             unless ($status) {
-- 
cgit v1.2.3