From 2afd7d8ec8fc4ff46d0a672736d091ff66ec22c6 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 2 Nov 2006 10:06:37 +0000
Subject: [PATCH] More heuristics to make warnings.t pass under different
 combinations of PERL_UNICODE / locale

p4raw-id: //depot/perl@29184
---
 t/lib/common.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/t/lib/common.pl b/t/lib/common.pl
index 6dad282..e188ab8 100644
--- a/t/lib/common.pl
+++ b/t/lib/common.pl
@@ -58,7 +58,11 @@ undef $/;
 
 plan tests => (scalar(@prgs)-$files);
 
-my $utf8_ok = exists $ENV{PERL_UNICODE} && $ENV{PERL_UNICODE} =~ m{^$|[Dio]} ? 1 : 0;
+my $utf8_ok = exists $ENV{PERL_UNICODE} && (
+    $ENV{PERL_UNICODE} =~ m{[Dio]}
+    || ($ENV{PERL_UNICODE} eq ""
+	    && ($ENV{LC_ALL} =~ /\butf-?8\b/i || $ENV{LANG} =~ /\butf-?8\b/i))
+);
 
 for (@prgs){
     unless (/\n/)
-- 
2.7.4