From: Chip Salzenberg <chip@perl.com>
Date: Tue, 18 Feb 1997 16:22:49 +0000 (+1200)
Subject: Don't test locales if there is no setlocale()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=97a0514d1a190f42e4951dfef2399e1b4f8371ea;p=p5sagit%2Fp5-mst-13.2.git

Don't test locales if there is no setlocale()
---

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