ext/IPC-Open2/lib/IPC/Open2.pm Open a two-ended pipe
ext/IPC-Open2/t/IPC-Open2.t See if IPC::Open2 works
ext/IPC-Open3/lib/IPC/Open3.pm Open a three-ended pipe
+ext/IPC-Open3/t/fd.t See if IPC::Open3 works w/ file descriptors
ext/IPC-Open3/t/IPC-Open3.t See if IPC::Open3 works
ext/mro/Changes mro extension
ext/mro/mro.pm mro extension
--- /dev/null
+#!./perl
+
+BEGIN { require "../../t/test.pl"; }
+use strict;
+use warnings;
+
+plan 1;
+
+# [perl #76474]
+ok !runperl(
+ switches => ['-MIPC::Open3', '-w'],
+ prog => 'open3(q _<&1_, my $out, undef, $ENV{PERLEXE})',
+ stderr => 1,
+ ),
+ "dup STDIN in a child process by using its file descriptor";