summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2002-08-02 02:13:10 +0200
committerhv <hv@crypt.org>2002-08-08 14:40:41 +0000
commit6b78add2c35f54b36819625ba31bac03f6bb28ea (patch)
treee3383ec47d5763df79c2da2e4ddf4468eb2d44a1 /perl.h
parentaed17120f1d71c676ff756013d9027da2cec8e83 (diff)
downloadperl-6b78add2c35f54b36819625ba31bac03f6bb28ea.tar.gz
Re: [perl #15479] perl 5.8.0 segfault
Message-id: <20020802001310.7e1dc694.rgarciasuarez@free.fr> p4raw-id: //depot/perl@17695
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 9c4a4b9d02..944dcc75c4 100644
--- a/perl.h
+++ b/perl.h
@@ -2396,6 +2396,7 @@ Gid_t getegid (void);
#ifndef Perl_error_log
# define Perl_error_log (PL_stderrgv \
+ && isGV(PL_stderrgv) \
&& GvIOp(PL_stderrgv) \
&& IoOFP(GvIOp(PL_stderrgv)) \
? IoOFP(GvIOp(PL_stderrgv)) \