projects / platform / upstream / perl.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 9c88a88) | patch
In Perl_write_to_stderr(), use Perl_magic_methcall() if STDERR is tied.
authorNicholas Clark <nick@ccl4.org>
Thu, 13 Jan 2011 17:04:14 +0000 (17:04 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 13 Jan 2011 17:04:14 +0000 (17:04 +0000)
commitd1d7a15d2d5a0a628a4646ff58aaf00222c7ed58
tree7a05c921d3c6848bcc1aafc7cbb7d03db1964dc1tree | snapshot
parent9c88a88bf2f605e353ff3a31ee725b1f9f0db556commit | diff
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.
cop.h diff | blob | history
mg.c diff | blob | history
util.c diff | blob | history
Domain: System / Base;