summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorDave Mitchell <davem@fdisolutions.com>2005-07-07 14:47:51 +0000
committerDave Mitchell <davem@fdisolutions.com>2005-07-07 14:47:51 +0000
commit871f090acdc7c90327d56a3b506612ce1d40296b (patch)
tree3349f5c3d5c7e047ae89b95601b0c0d5ac745e02 /mg.c
parent7e2483e5c2512b3d95ae2950a46866198b455d71 (diff)
downloadperl-871f090acdc7c90327d56a3b506612ce1d40296b.tar.gz
more taint fallout from change 24943
p4raw-id: //depot/perl@25094
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index 9ae88c428f..b126ec43e1 100644
--- a/mg.c
+++ b/mg.c
@@ -1913,7 +1913,7 @@ int
Perl_magic_gettaint(pTHX_ SV *sv, MAGIC *mg)
{
PERL_UNUSED_ARG(sv);
- TAINT_IF(mg->mg_len & 1);
+ TAINT_IF((PL_localizing != 1) && (mg->mg_len & 1));
return 0;
}