Francois Gouget : testbot/SetWinLocale: Show the intl.cpl XML file in --debug mode.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 5922e16ff817a380bae24b8f981c6d52f1f5a1ad
URL:    https://source.winehq.org/git/tools.git/?a=commit;h=5922e16ff817a380bae24b8f...

Author: Francois Gouget 
Date:   Tue Dec 21 16:38:47 2021 +0100

testbot/SetWinLocale: Show the intl.cpl XML file in --debug mode.

In addition to the --dry-run mode.

Signed-off-by: Francois Gouget 
Signed-off-by: Alexandre Julliard

---

testbot/bin/SetWinLocale | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/testbot/bin/SetWinLocale b/testbot/bin/SetWinLocale
index 4ecc0cb..d4ba517 100755
--- a/testbot/bin/SetWinLocale
+++ b/testbot/bin/SetWinLocale
@@ -786,11 +786,10 @@ $OptHostName = $VM->Hostname if ($VM); # For error messages
 my $TA = $VM ? $VM->GetAgent() : TestAgent->new($OptHostName, $AgentPort);

Debug(Elapsed($Start), " Sending the configuration file\n");
-if ($DryRun)
-{
-  print STDERR join("\n", "locales.xml:", @Config, "");
-}
-elsif (!$TA->SendFileFromString(join("\r\n", @Config, ""), "locales.xml", 0))
+print STDERR join("\n", "locales.xml:", @Config, "") if ($DryRun or $Debug);
+
+if (!$DryRun and
+    !$TA->SendFileFromString(join("\r\n", @Config, ""), "locales.xml", 0))
 {
   FatalError("could not send the configuration file:", $TA->GetLastError(), "\n");
 }