diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-31 14:14:21 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-08-31 14:14:21 +0000 |
| commit | ea1d064a0a997a28f8265a165120fea0d04e9a22 (patch) | |
| tree | fafa1eb00bf4de63a28686e2ff6eed96c3848559 /op.c | |
| parent | d9baf692ef7bf68c5e130e004b7c236d80e73edd (diff) | |
| download | perl-ea1d064a0a997a28f8265a165120fea0d04e9a22.tar.gz | |
Fix for [perl #37036] perl segfault at 'compile'-time
p4raw-id: //depot/perl@25341
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -5896,6 +5896,7 @@ Perl_ck_open(pTHX_ OP *o) (last->op_private & OPpCONST_STRICT) && (oa = first->op_sibling) && /* The fh. */ (oa = oa->op_sibling) && /* The mode. */ + (oa->op_type == OP_CONST) && SvPOK(((SVOP*)oa)->op_sv) && (mode = SvPVX_const(((SVOP*)oa)->op_sv)) && mode[0] == '>' && mode[1] == '&' && /* A dup open. */ |