From f9fd939abbc7e148722bbf27d74d65b6ae7be603 Mon Sep 17 00:00:00 2001
From: schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Tue, 7 Oct 2003 14:50:37 +0000
Subject: 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
---
 lib/sbin/ScheduleParser.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/sbin/ScheduleParser.pl')

diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl
index 1c39717e..90a338dc 100644
--- a/lib/sbin/ScheduleParser.pl
+++ b/lib/sbin/ScheduleParser.pl
@@ -31,7 +31,7 @@ sub create_schedule_database
   my(@schedule_data);
 
   #  Loop through each implementation's schedule file.
-  foreach $thorn (keys %thorns)
+  foreach $thorn (sort keys %thorns)
   {
     print "   $thorn\n";
     #       Read the data
@@ -47,7 +47,7 @@ sub create_schedule_database
 
   }
 
-#  @schedule_data = &cross_index_schedule_data(scalar(keys %thorns), (keys %thorns), @schedule_data);
+#  @schedule_data = &cross_index_schedule_data(scalar(keys %thorns), (sort keys %thorns), @schedule_data);
 
   return @schedule_data;
 }
@@ -555,7 +555,7 @@ sub check_schedule_database
 
   # make a list of all group names
   $allgroups = "";
-  foreach $thorn (keys %thorns)
+  foreach $thorn (sort keys %thorns)
   {
     # Process each schedule block
     for($block = 0 ; $block < $rhschedule_db->{"\U$thorn\E N_BLOCKS"}; $block++)
@@ -568,7 +568,7 @@ sub check_schedule_database
   }
 
   # check that scheduling in is only for a known group
-  foreach $thorn (keys %thorns)
+  foreach $thorn (sort keys %thorns)
   {
     # Process each schedule block
     for($block = 0 ; $block < $rhschedule_db->{"\U$thorn\E N_BLOCKS"}; $block++)
-- 
cgit v1.2.3