From 8b4f558134a618660c424d2dabd90033b7b8e4b9 Mon Sep 17 00:00:00 2001 From: Russ Allbery 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