This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove old MSVC++ (pre-VC12) support from Windows Makefiles
[perl5.git] / dist / ExtUtils-CBuilder / t / 00-have-compiler.t
index 5148412..e4706a0 100644 (file)
@@ -33,10 +33,10 @@ ok( $b, "got CBuilder object" ) or diag $@;
 
     # This will fork a child that will print
     #    'Can't exec "djaadjfkadjkfajdf"'
-    # or similar on STDERR; so make sure fd2 is temporarily closed before
-    # the fork
+    # or similar on STDERR; so make sure fd2 is temporarily redirected to
+    # oblivion before the fork
     open(OLDERR, ">&STDERR") or die "Can't dup STDERR: $!";
-    close(STDERR);
+    open(STDERR, ">", File::Spec->devnull()) or die "Can't redirect STDERR: $!";
     my $res = $b1->have_compiler;
     open(STDERR, ">&OLDERR") or die "Can't restore STDERR: $!";
     close(OLDERR);
@@ -48,7 +48,7 @@ ok( $b, "got CBuilder object" ) or diag $@;
     configure_fake_missing_compilers($b2);
 
     open(OLDERR, ">&STDERR") or die "Can't dup STDERR: $!";
-    close(STDERR);
+    open(STDERR, ">", File::Spec->devnull()) or die "Can't redirect STDERR: $!";
     my $res = $b2->have_cplusplus;
     open(STDERR, ">&OLDERR") or die "Can't restore STDERR: $!";
     close(OLDERR);