projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
Make harness warning-free when running with -Mdiagnostics
[p5sagit/p5-mst-13.2.git]
/
mg.c
diff --git
a/mg.c
b/mg.c
index
ec4dcd3
..
31df285
100644
(file)
--- a/
mg.c
+++ b/
mg.c
@@
-841,7
+841,10
@@
Perl_magic_get(pTHX_ SV *sv, MAGIC *mg)
getrx:
if (i >= 0) {
+ int oldtainted = PL_tainted;
+ TAINT_NOT;
sv_setpvn(sv, s, i);
+ PL_tainted = oldtainted;
if (RX_MATCH_UTF8(rx) && is_utf8_string((U8*)s, i))
SvUTF8_on(sv);
else