From d281a6ac99b66dc149fbd56ba67cd73e3e87afb9 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 4 Jul 2004 15:14:33 +0000
Subject: /usr/bin/locale steadfastly delivers 8 bit output independent of
 LC_ALL. So when perl's expecting utf8, things don't quite work right. This
 has become visible since fix 22842

p4raw-id: //depot/perl@23028
---
 lib/locale.t | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lib')

diff --git a/lib/locale.t b/lib/locale.t
index a294d2fbc2..037e2710e6 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($_);
     }
-- 
cgit v1.2.1