From e8875ae50b706bf62f3e46260cf26a6768300e2f Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 5 Feb 2012 10:03:47 -0800 Subject: [PATCH] Sort emitted param settings in export_params() Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index c56ca1dbe..d3c7466da 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -3476,11 +3476,13 @@ sub add_param( $$ ) { sub export_params() { my $count = 0; - while ( my ( $param, $value ) = each %params ) { + for my $param ( sort keys %params ) { # # Don't export params added by the compiler # next if exists $compiler_params{$param}; + + my $value = $params{$param}; # # Values in %params are generated from the output of 'export -p'. # The different shells have different conventions for delimiting