From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 16 Dec 1999 08:26:00 +0000 (+0000)
Subject: avoid coredump on diagnostics when STDERR is closed
X-Git-Tag: accepted/trunk/20130322.191538~35795
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=42de951c9bc4e08c86dfb507cb90ef187842e17c;p=platform%2Fupstream%2Fperl.git

avoid coredump on diagnostics when STDERR is closed

p4raw-id: //depot/perl@4680
---

diff --git a/perl.h b/perl.h
index dc72ffe..8a6505e 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