diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/Pipe.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/IO/lib/IO/Pipe.pm b/ext/IO/lib/IO/Pipe.pm index 499856a6c6..1768a4afed 100644 --- a/ext/IO/lib/IO/Pipe.pm +++ b/ext/IO/lib/IO/Pipe.pm @@ -14,7 +14,7 @@ use vars qw($VERSION); use Carp; use Symbol; -$VERSION = "1.09"; +$VERSION = "1.0901"; sub new { my $type = shift; @@ -65,6 +65,7 @@ sub _doit { } bless $io, "IO::Handle"; $io->fdopen($fh, $mode); + $fh->close; if ($do_spawn) { $pid = eval { system 1, @_ }; # 1 == P_NOWAIT |