Closed p5pRT closed 20 years ago
#!/opt/perl/bin/perl -w use strict; use IPC::Open3; use IO::Select;
my ($stdin\, $stdout\, $stderr); my $pid = open3 ($stdin\, $stdout\, $stderr\, perl => '-e'\, 1); if ($@ && $@ =~ /^open3:/) { die "open3 failed: $@\n"; }
my $select = IO::Select -> new ($stdin\, $stdout\, $stderr);
print "Not reached...\n";
__END__ Use of uninitialized value in pattern match (m//) at /opt/perl/lib/5.6.0/i686-linux-64int/IO/Select.pm line 60. Can't use an undefined value as a symbol reference at /opt/perl/lib/5.6.0/i686-linux-64int/IO/Select.pm line 60.
I'm not sure I want to touch IO::Select to make it do something more polite when handed an undefined 'fh'\, but that's not the real bug being reported anyway. This fixes the non-vivication of open3.
--s.
Oops! Overeager patch there. I'm not sure that is a bug\, and I know that the patch I sent causes other problems. Retracted.
--s.
Migrated from rt.perl.org#4319 (status was 'resolved')
Searchable as RT4319$