diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-03-19 00:00:46 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-03-19 00:00:46 +0000 |
| commit | b01e650a9b9106d610923bb01ce97b6e191ca8ed (patch) | |
| tree | bbe4aa1186d1e49cb2115aa71b89b943eee493d2 /mg.c | |
| parent | e7cbf6c66722616e50aa4cda71d48adf3ae55201 (diff) | |
| download | perl-b01e650a9b9106d610923bb01ce97b6e191ca8ed.tar.gz | |
minor code simplification made possible by change #30627
p4raw-link: @30627 on //depot/perl: e7cbf6c66722616e50aa4cda71d48adf3ae55201
p4raw-id: //depot/perl@30628
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 12 |
1 files changed, 5 insertions, 7 deletions
@@ -2002,13 +2002,11 @@ Perl_magic_settaint(pTHX_ SV *sv, MAGIC *mg) { dVAR; PERL_UNUSED_ARG(sv); - /* update taint status unless we're restoring at scope exit */ - if (PL_localizing != 2) { - if (PL_tainted) - mg->mg_len |= 1; - else - mg->mg_len &= ~1; - } + /* update taint status */ + if (PL_tainted) + mg->mg_len |= 1; + else + mg->mg_len &= ~1; return 0; } |