From c406fbf4b2c59f9bf85533351a960a83d25ff7c2 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 4 Jun 2001 16:05:20 +0000 Subject: [PATCH] On second thoughts show to utf8 skippage message only on failures, it's too confusing otherwise, p4raw-id: //depot/perl@10430 --- t/pragma/locale.t | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/t/pragma/locale.t b/t/pragma/locale.t index e0c8330..df6df60 100755 --- a/t/pragma/locale.t +++ b/t/pragma/locale.t @@ -817,17 +817,16 @@ if ($didwarn) { warn "# None of your locales were broken.\n"; } -} - -if (@utf8locale) { - my $S = join(" ", @utf8locale); - $S =~ s/(.{50,60}) /$1\n#\t/g; - - warn "#\n# The following locales\n#\n", - "#\t", $S, "\n#\n", - "# were skipped for the tests ", - join(" ", sort {$a<=>$b} keys %utf8skip), "\n", - "# because UTF-8 and locales do not work together in Perl.\n#\n"; + if (@utf8locale) { + my $S = join(" ", @utf8locale); + $S =~ s/(.{50,60}) /$1\n#\t/g; + + warn "#\n# The following locales\n#\n", + "#\t", $S, "\n#\n", + "# were skipped for the tests ", + join(" ", sort {$a<=>$b} keys %utf8skip), "\n", + "# because UTF-8 and locales do not work together in Perl.\n#\n"; + } } # eof -- 2.7.4