From 3e68a70123b1ed411234f2175bf673979bf77e6c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Fri, 5 Jun 2015 08:51:43 -0400
Subject: (setVarsInSh*) sort entries

thus it's easier to compare files when testing a tool
---
 lib/MDK/Common/System.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/MDK/Common/System.pm')

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