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