From 97a0514d1a190f42e4951dfef2399e1b4f8371ea Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@perl.com>
Date: Wed, 19 Feb 1997 04:22:49 +1200
Subject: [PATCH] Don't test locales if there is no setlocale()

---
 t/pragma/locale.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 298e5ba..05891fa 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -4,7 +4,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require Config; import Config;
-    if ($Config{ccflags} =~ /\bD?NO_LOCALE\b/) {
+    if (!$Config{d_setlocale} || $Config{ccflags} =~ /\bD?NO_LOCALE\b/) {
 	print "1..0\n";
 	exit;
     }
-- 
2.7.4