From 3e68a70123b1ed411234f2175bf673979bf77e6c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 5 Jun 2015 08:51:43 -0400 Subject: (setVarsInSh*) sort entries thus it's easier to compare files when testing a tool --- NEWS | 2 ++ lib/MDK/Common/System.pm | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index bde5b94..f84d497 100644 --- a/NEWS +++ b/NEWS @@ -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 ); -- cgit v1.2.1