diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-23 16:15:50 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-12-23 16:15:50 +0000 |
| commit | 10250113e7a9436d0e11467beb33a1b1c5888098 (patch) | |
| tree | 43df92068e4593a17f72ee24bcd97c8c21825583 /op.c | |
| parent | 25aae3a72e52ac6a70711f3dce68629d59f1cf87 (diff) | |
| download | perl-10250113e7a9436d0e11467beb33a1b1c5888098.tar.gz | |
Fix #6006 for taint mode too.
p4raw-id: //depot/perl@29619
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -3314,6 +3314,7 @@ Perl_pmruntime(pTHX_ OP *o, OP *expr, bool isreg) OP *lastop = NULL; for (curop = LINKLIST(repl); curop!=repl; curop = LINKLIST(curop)) { if (curop->op_type == OP_SCOPE + || curop->op_type == OP_LEAVE || (PL_opargs[curop->op_type] & OA_DANGEROUS)) { if (curop->op_type == OP_GV) { GV * const gv = cGVOPx_gv(curop); |