From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 4 Jun 2001 16:05:20 +0000 (+0000)
Subject: On second thoughts show to utf8 skippage message only
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c406fbf4b2c59f9bf85533351a960a83d25ff7c2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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