summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2015-06-05 08:51:43 -0400
committerThierry Vignaud <thierry.vignaud@gmail.com>2015-06-05 08:51:43 -0400
commit3e68a70123b1ed411234f2175bf673979bf77e6c (patch)
tree2de77381948a5925398a616b2edc7ec068fbd866 /lib
parentf084b3dcc423acecc7f67860c7d2add72c3796be (diff)
downloadperl-MDK-Common-3e68a70123b1ed411234f2175bf673979bf77e6c.tar
perl-MDK-Common-3e68a70123b1ed411234f2175bf673979bf77e6c.tar.gz
perl-MDK-Common-3e68a70123b1ed411234f2175bf673979bf77e6c.tar.bz2
perl-MDK-Common-3e68a70123b1ed411234f2175bf673979bf77e6c.tar.xz
perl-MDK-Common-3e68a70123b1ed411234f2175bf673979bf77e6c.zip
(setVarsInSh*) sort entries
thus it's easier to compare files when testing a tool
Diffstat (limited to 'lib')
-rw-r--r--lib/MDK/Common/System.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MDK/Common/System.pm b/lib/MDK/Common/System.pm
index c0be561..e98b3c5 100644
--- a/lib/MDK/Common/System.pm
+++ b/lib/MDK/Common/System.pm
@@ -459,7 +459,7 @@ sub quoteForSh {
sub setVarsInShMode {
my ($file, $mod, $l, @fields) = @_;
- @fields = keys %$l unless @fields;
+ @fields = sort keys %$l unless @fields;
my $string = join('',
map { "$_=" . quoteForSh($l->{$_}) . "\n" } grep { $l->{$_} } @fields
);