diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-07 14:50:37 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-10-07 14:50:37 +0000 |
commit | f9fd939abbc7e148722bbf27d74d65b6ae7be603 (patch) | |
tree | 6df3346a89a1d7872f81e96b1f510999fc4482c6 /lib/sbin/CheckoutUtils.pl | |
parent | 8f7c1066b45074fa2c566081f5d0a0a2f5ffd2a8 (diff) |
Traverse all hashes alphabetically, so that all output files of the
CST stage will be identical. This is necessary at least since perl
5.8.1 to avoid redundant recompilation.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3425 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CheckoutUtils.pl')
-rw-r--r-- | lib/sbin/CheckoutUtils.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/CheckoutUtils.pl b/lib/sbin/CheckoutUtils.pl index abaa5762..2fc6aa5b 100644 --- a/lib/sbin/CheckoutUtils.pl +++ b/lib/sbin/CheckoutUtils.pl @@ -279,7 +279,7 @@ sub GetThorns { my($fleshrep,$options,$tag,%thorns) = @_; - foreach $th (keys %thorns) + foreach $th (sort keys %thorns) { if ($thorns{"$th"} =~ m|cvs.cactuscode.org:/cactus|) { |