diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-06-05 08:51:43 -0400 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2015-06-05 08:51:43 -0400 |
| commit | 3e68a70123b1ed411234f2175bf673979bf77e6c (patch) | |
| tree | 2de77381948a5925398a616b2edc7ec068fbd866 | |
| parent | f084b3dcc423acecc7f67860c7d2add72c3796be (diff) | |
| download | perl-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
| -rw-r--r-- | NEWS | 2 | ||||
| -rw-r--r-- | lib/MDK/Common/System.pm | 2 |
2 files changed, 3 insertions, 1 deletions
@@ -1,3 +1,5 @@ +- setVarsInSh*(): sort entries + Version 1.2.31 - 21 December 2014, by Colin Guthrie - user filtering updates for system/real user boundary change 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 ); |