From: Jess Robinson <castaway@desert-island.me.uk>
Date: Fri, 19 Apr 2013 11:08:34 +0000 (+0100)
Subject: t/run/switches.t: Skip setlocale tests if !d_setlocale
X-Git-Tag: upstream/5.20.0~725
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=7620c90318039d81ec0863a422f249f9fa4a5c05;p=platform%2Fupstream%2Fperl.git

t/run/switches.t: Skip setlocale tests if !d_setlocale
---

diff --git a/t/run/switches.t b/t/run/switches.t
index 315c3b9..a2e4bad 100644
--- a/t/run/switches.t
+++ b/t/run/switches.t
@@ -7,6 +7,7 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require Config; import Config;
 }
 
 BEGIN { require "./test.pl"; }
@@ -111,6 +112,7 @@ SWTEST
 
 SKIP: {
     skip "no POSIX on miniperl", 1, unless $INC{"POSIX.pm"};
+    skip 'No locale testing without d_setlocale', 1 if(!$Config{d_setlocale});
 
     my $tempdir = tempfile;
     mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";