diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-01-13 17:04:14 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-01-13 17:04:14 +0000 |
| commit | d1d7a15d2d5a0a628a4646ff58aaf00222c7ed58 (patch) | |
| tree | 7a05c921d3c6848bcc1aafc7cbb7d03db1964dc1 /cop.h | |
| parent | 9c88a88bf2f605e353ff3a31ee725b1f9f0db556 (diff) | |
| download | perl-d1d7a15d2d5a0a628a4646ff58aaf00222c7ed58.tar.gz | |
In Perl_write_to_stderr(), use Perl_magic_methcall() if STDERR is tied.
Add a flag G_WRITING_TO_STDERR to signal that Perl_magic_methcall() needs to
localise PL_stderrgv to NULL, and save/free temps, inside its ENTER/LEAVE
pair.
Diffstat (limited to 'cop.h')
| -rw-r--r-- | cop.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1064,6 +1064,8 @@ L<perlcall>. #define G_UNDEF_FILL 512 /* Fill the stack with &PL_sv_undef A special case for UNSHIFT in Perl_magic_methcall(). */ +#define G_WRITING_TO_STDERR 1024 /* Perl_write_to_stderr() is calling + Perl_magic_methcall(). */ /* flag bits for PL_in_eval */ #define EVAL_NULL 0 /* not in an eval */ |