Change 17679 by [EMAIL PROTECTED] on 2002/08/04 23:40:22
[ID 20020704.001] again: #17678 caused test failures in pod2html,
in which $1 could leak from previous regexp
Affected files ...
.... //depot/perl/mg.c#237 edit
Differences ...
==== //depot/perl/mg.c#237 (text) ====
Index: perl/mg.c
--- perl/mg.c#236~17678~ Sun Aug 4 08:34:19 2002
+++ perl/mg.c Sun Aug 4 16:40:22 2002
@@ -698,19 +698,20 @@
SvUTF8_on(sv);
else
SvUTF8_off(sv);
- if (PL_tainting)
- PL_tainted = PL_tainted || !!RX_MATCH_TAINTED(rx);
- if (RX_MATCH_TAINTED(rx)) {
- MAGIC* mg = SvMAGIC(sv);
- MAGIC* mgt;
- SvMAGIC(sv) = mg->mg_moremagic;
- SvTAINT(sv);
- if ((mgt = SvMAGIC(sv))) {
- mg->mg_moremagic = mgt;
- SvMAGIC(sv) = mg;
- }
- } else
- SvTAINTED_off(sv);
+ if (PL_tainting) {
+ if (RX_MATCH_TAINTED(rx)) {
+ MAGIC* mg = SvMAGIC(sv);
+ MAGIC* mgt;
+ PL_tainted = 1;
+ SvMAGIC(sv) = mg->mg_moremagic;
+ SvTAINT(sv);
+ if ((mgt = SvMAGIC(sv))) {
+ mg->mg_moremagic = mgt;
+ SvMAGIC(sv) = mg;
+ }
+ } else
+ SvTAINTED_off(sv);
+ }
break;
}
}
End of Patch.
