From c7e7f6b71d5756d757aa0d1f510a44ef82bcea77 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 2 Dec 2013 19:28:52 -0700 Subject: [PATCH] lib/locale.t: Only output debug message if relevant This message telling people to set an environment variable was output even if the variable was already set; this is potentially confusing --- lib/locale.t | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lib/locale.t b/lib/locale.t index f211aef8a6..b15d297b20 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -2250,11 +2250,19 @@ if ($didwarn) { my $F = join(" ", @F); $F =~ s/(.{50,60}) /$1\n#\t/g; + my $details = ""; + unless ($debug) { + $details = "# For more details, rerun, with environment variable PERL_DEBUG_FULL_TEST=1.\n"; + } + elsif ($debug == 1) { + $details = "# For even more details, rerun, with environment variable PERL_DEBUG_FULL_TEST=2.\n"; + } + warn "# The following locales\n#\n", "#\t", $F, "\n#\n", "# had problems.\n#\n", - "# For more details, rerun, with environment variable PERL_DEBUG_FULL_TEST=1.\n"; + $details; } else { warn "# None of your locales were broken.\n"; } -- 2.34.1