summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorDaniel Chetlin <daniel@chetlin.com>2000-10-02 07:53:27 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-02 23:32:38 +0000
commit01bb7c6d67bc951562ed98068eba189cadd42374 (patch)
tree8a690ec57aeca12f1e60a5d90b22f5efaa807a7d /perl.h
parentb38af7adab46822ec7c92d231d7fbb058dc22c4c (diff)
downloadperl-01bb7c6d67bc951562ed98068eba189cadd42374.tar.gz
Fix aliasing of tied filehandles
Message-ID: <20001002145327.C1617@ilmd> p4raw-id: //depot/perl@7110
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 5661851489..0b5c6ea3ea 100644
--- a/perl.h
+++ b/perl.h
@@ -2056,6 +2056,7 @@ Gid_t getegid (void);
#ifndef Perl_error_log
# define Perl_error_log (PL_stderrgv \
+ && GvIOp(PL_stderrgv) \
&& IoOFP(GvIOp(PL_stderrgv)) \
? IoOFP(GvIOp(PL_stderrgv)) \
: PerlIO_stderr())