diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-26 13:51:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-03-26 13:51:30 +0000 |
| commit | 3ef1310e8095f478a1ddff6a842410f27b75e186 (patch) | |
| tree | 6c7359fc9648dc0b0f913c77429d040632cc547b /sv.c | |
| parent | 4d6334bc3f221cf02f086af5f139b424145c2b32 (diff) | |
| download | perl-3ef1310e8095f478a1ddff6a842410f27b75e186.tar.gz | |
say() should parse exactly like print()
p4raw-id: //depot/perl@30760
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -11997,6 +11997,7 @@ S_find_uninit_var(pTHX_ OP* obase, SV* uninit_sv, bool match) case OP_PRTF: case OP_PRINT: + case OP_SAY: /* skip filehandle as it can't produce 'undef' warning */ o = cUNOPx(obase)->op_first; if ((obase->op_flags & OPf_STACKED) && o->op_type == OP_PUSHMARK) |