X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Flocale.t;h=037e2710e6bb6b79594a0a2d2078b22ad36056c4;hb=567f8e5b1e23f102b4f20b5ec9c24fe82bf9fd13;hp=a294d2fbc2b54d2759ce60d96a592f61766269c3;hpb=cd19b65c5ecbc051ae6b3ed0644e976003b04fce;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/locale.t b/lib/locale.t
index a294d2f..037e271 100644
--- a/lib/locale.t
+++ b/lib/locale.t
@@ -382,6 +382,10 @@ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 
 if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a 2>/dev/null|")) {
     while (<LOCALES>) {
+	# It seems that /usr/bin/locale steadfastly outputs 8 bit data, which
+	# ain't great when we're running this testPERL_UNICODE= so that utf8
+	# locales will cause all IO hadles to default to (assume) utf8
+	next unless utf8::valid($_);
         chomp;
 	trylocale($_);
     }