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/parameter_parser.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/parameter_parser.pl')
-rw-r--r-- | lib/sbin/parameter_parser.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl index 2fd3d401..a9009a81 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -37,7 +37,7 @@ sub create_parameter_database my(@parameter_data); # Loop through each implementation's parameter file. - foreach $thorn (keys %thorns) + foreach $thorn (sort keys %thorns) { print " $thorn\n"; # Read the data @@ -53,7 +53,7 @@ sub create_parameter_database } - @parameter_data = &cross_index_parameters(scalar(keys %thorns), (keys %thorns), @parameter_data); + @parameter_data = &cross_index_parameters(scalar(keys %thorns), (sort keys %thorns), @parameter_data); return @parameter_data; } @@ -275,7 +275,7 @@ sub parse_param_ccl %options = split(/\s*=\s*|\s+/, $options); - foreach $option (keys %options) + foreach $option (sort keys %options) { if($option =~ m:STEERABLE:i) { @@ -476,7 +476,7 @@ sub parse_param_ccl } } - $parameter_db{"\U$thorn\E SHARES implementations"} = join(" ", keys %friends); + $parameter_db{"\U$thorn\E SHARES implementations"} = join(" ", sort keys %friends); return %parameter_db; } |