diff options
| author | Tom Hughes <tom@compton.nu> | 1999-04-24 19:11:59 +0100 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 03:48:08 +0000 |
| commit | b295d1132eed0f33e5e8fda2cd65ee1297fdabdb (patch) | |
| tree | 2cc2bb16f505a1d5c1a468bdce46a301cdf37e84 /op.c | |
| parent | f2f614a63111e79068118dba78b4ac57891a3382 (diff) | |
| download | perl-b295d1132eed0f33e5e8fda2cd65ee1297fdabdb.tar.gz | |
applied suggested patch, with win32 and PERL_OBJECT additions
Message-ID: <609bdff748.tom@compton.compton.nu>
Subject: ByteLoader patch
p4raw-id: //depot/perl@3356
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1722,6 +1722,8 @@ newPROG(OP *o) { dTHR; if (PL_in_eval) { + if (PL_eval_root) + return; PL_eval_root = newUNOP(OP_LEAVEEVAL, ((PL_in_eval & 4) ? OPf_SPECIAL : 0), o); PL_eval_start = linklist(PL_eval_root); PL_eval_root->op_next = 0; |