diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 04:21:48 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 04:21:48 +0000 |
| commit | df0bd2f4ab5af7b0babaa8c3c84969f29fcac3c7 (patch) | |
| tree | 914b0cdb127888696c000090152efbaaa4029187 /sv.c | |
| parent | 502a173a8c3e53b1538fe058ed5270cb83ccfb93 (diff) | |
| download | perl-df0bd2f4ab5af7b0babaa8c3c84969f29fcac3c7.tar.gz | |
ensure implicit close on local(*FH) doesn't affect $! and thence $?
p4raw-id: //depot/maint-5.005/perl@1687
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -2885,7 +2885,8 @@ sv_clear(register SV *sv) stash = NULL; switch (SvTYPE(sv)) { case SVt_PVIO: - if (IoIFP(sv) != PerlIO_stdin() && + if (IoIFP(sv) && + IoIFP(sv) != PerlIO_stdin() && IoIFP(sv) != PerlIO_stdout() && IoIFP(sv) != PerlIO_stderr()) io_close((IO*)sv); |