summaryrefslogtreecommitdiff
path: root/lib/sbin/ScheduleParser.pl
diff options
context:
space:
mode:
authorschnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac>2003-10-07 14:50:37 +0000
committerschnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac>2003-10-07 14:50:37 +0000
commitf9fd939abbc7e148722bbf27d74d65b6ae7be603 (patch)
tree6df3346a89a1d7872f81e96b1f510999fc4482c6 /lib/sbin/ScheduleParser.pl
parent8f7c1066b45074fa2c566081f5d0a0a2f5ffd2a8 (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/ScheduleParser.pl')
-rw-r--r--lib/sbin/ScheduleParser.pl8
1 files changed, 4 insertions, 4 deletions
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++)