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/ScheduleParser.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/ScheduleParser.pl')
-rw-r--r-- | lib/sbin/ScheduleParser.pl | 8 |
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++) |