diff options
| author | Nicholas Clark <nick@ccl4.org> | 2010-06-13 08:50:00 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2010-06-13 08:50:00 +0100 |
| commit | 2116934e2bf4f3c1445ea039e29ff377c3de2648 (patch) | |
| tree | aff104836d89394bf79dca7494a751e1c5fcfcd1 /pp_sys.c | |
| parent | b0c1862166fbc7bf02b768bf81c9e1e77b5220a8 (diff) | |
| download | perl-2116934e2bf4f3c1445ea039e29ff377c3de2648.tar.gz | |
In pp_eof, ensure stack space for the second argument to the tied EOF method.
Commit 32e653230c7ccc7f added this second argument, but didn't verify that the
stack always had sufficient space for it.
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2031,6 +2031,7 @@ PP(pp_eof) * 1 = eof(FH) * 2 = eof() <- ARGV magic */ + EXTEND(SP, 1); if (MAXARG) mPUSHi(1); /* 1 = eof(FH) - simple, explicit FH */ else if (PL_op->op_flags & OPf_SPECIAL) |