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

[Francois Gouget]

In addition to the --dry-run mode.

Signed-off-by: Francois Gouget 
---
 testbot/bin/SetWinLocale | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/testbot/bin/SetWinLocale b/testbot/bin/SetWinLocale
index d9a9e0340..1e803c555 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");
 }