diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2008-01-02 09:08:36 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-01-06 16:03:13 +0000 |
| commit | 3a28f3fb1bfd44e4e3dfe6842af867c8c1c9de28 (patch) | |
| tree | c9a77da0789972574a11b9da07bc9d124e969ec3 /pp_hot.c | |
| parent | e1f17637d1ade6d468d3aebe31c7b7a17f6fc053 (diff) | |
| download | perl-3a28f3fb1bfd44e4e3dfe6842af867c8c1c9de28.tar.gz | |
Re: [perl #49264] say behaves as just print on tied filehandle
Message-ID: <477C3594.9080302@pobox.com>
p4raw-id: //depot/perl@32873
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -731,6 +731,11 @@ PP(pp_print) *MARK = SvTIED_obj((SV*)io, mg); PUTBACK; ENTER; + if( PL_op->op_type == OP_SAY ) { + /* local $\ = "\n" */ + SAVESPTR(PL_ors_sv); + PL_ors_sv = newSVpvs("\n"); + } call_method("PRINT", G_SCALAR); LEAVE; SPAGAIN; |