summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-12-16 08:26:00 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-12-16 08:26:00 +0000
commit42de951c9bc4e08c86dfb507cb90ef187842e17c (patch)
tree9aeca84c5959ecd25d20522d6dc8745c00f17a64 /perl.h
parentdedcbb81b3c2f4f742df48d1d5918ae3c9eed4de (diff)
downloadperl-42de951c9bc4e08c86dfb507cb90ef187842e17c.tar.gz
avoid coredump on diagnostics when STDERR is closed
p4raw-id: //depot/perl@4680
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl.h b/perl.h
index dc72ffe0f3..8a6505e56b 100644
--- a/perl.h
+++ b/perl.h
@@ -1868,6 +1868,7 @@ Gid_t getegid (void);
#ifndef Perl_error_log
# define Perl_error_log (PL_stderrgv \
+ && IoOFP(GvIOp(PL_stderrgv)) \
? IoOFP(GvIOp(PL_stderrgv)) \
: PerlIO_stderr())
#endif