On second thoughts show to utf8 skippage message only

on failures, it's too confusing otherwise,

p4raw-id: //depot/perl@10430

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index e0c8330..df6df60 100755 (executable)
--- 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