diff options
| author | Mattia Barbon <mbarbon@dsi.unive.it> | 2002-01-02 18:37:28 +0100 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-02 15:58:11 +0000 |
| commit | c6b79628012c18b06d27164432d66e56c627b161 (patch) | |
| tree | 76ad829bdc04bff3807d41413fea92974fe1f9c6 /op.c | |
| parent | 38b0d3dc02713f3c8313d8d82d06f680810942d4 (diff) | |
| download | perl-c6b79628012c18b06d27164432d66e56c627b161.tar.gz | |
random crash in B::LISTOP::last
Message-Id: <3C334558.3906.19CB98D@localhost>
p4raw-id: //depot/perl@14016
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -5929,6 +5929,8 @@ Perl_ck_fun(pTHX_ OP *o) } break; case OA_FILEREF: + if(kid==cLISTOPo->op_last) + cLISTOPo->op_last = newop; if (kid->op_type != OP_GV && kid->op_type != OP_RV2GV) { if (kid->op_type == OP_CONST && (kid->op_private & OPpCONST_BARE)) |