Get switches.t to pass under miniperl
authorFather Chrysostomos <sprout@cpan.org>
Wed, 4 Dec 2013 13:56:08 +0000 (05:56 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 7 Dec 2013 02:40:46 +0000 (18:40 -0800)
t/run/switches.t

index f1b9234..315c3b9 100644 (file)
@@ -15,7 +15,7 @@ plan(tests => 115);
 
 use Config;
 use Errno qw(EACCES EISDIR);
-use POSIX qw(setlocale LC_ALL);
+BEGIN { eval 'use POSIX qw(setlocale LC_ALL)' }
 
 # due to a bug in VMS's piping which makes it impossible for runperl()
 # to emulate echo -n (ie. stdin always winds up with a newline), these 
@@ -109,7 +109,9 @@ SWTEST
     );
 }
 
-{
+SKIP: {
+    skip "no POSIX on miniperl", 1, unless $INC{"POSIX.pm"};
+
     my $tempdir = tempfile;
     mkdir $tempdir, 0700 or die "Can't mkdir '$tempdir': $!";