1 files changed, 11 insertions, 4 deletions
diff --git a/ext/IPC-Open3/t/fd.t b/ext/IPC-Open3/t/fd.t
index a11c72a80f..00685762c9 100644
--- a/ext/IPC-Open3/t/fd.t
+++ b/ext/IPC-Open3/t/fd.t
@@ -10,16 +10,23 @@ BEGIN {
 use strict;
 use warnings;
 
-plan 1;
+plan 2;
 
 # [perl #76474]
 {
   my $stderr = runperl(
      switches => ['-MIPC::Open3', '-w'],
-     prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q_-e0_)',
+     prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE}, q _-e0_)',
      stderr => 1,
      stdin => '',
   );
-  unlike $stderr, qr/open3/,
-   "dup STDIN in a child process by using its file descriptor";
+  {
+      local $::TODO = "Bogus warning in IPC::Open3::spawn_with_handles"
+	  if $^O eq 'MSWin32';
+      $stderr =~ s/(Use of uninitialized value.*Open3\.pm line \d+\.)\n//;
+      is($1, undef, 'No bogus warning found');
+  }
+
+  is $stderr, '',
+   "dup STDOUT in a child process by using its file descriptor";
 }