Change 34837 by [EMAIL PROTECTED] on 2008/11/15 10:15:22
Add a dump to help tracing taint bugs, by Chip Salzenberg
Affected files ...
... //depot/perl/dump.c#321 edit
Differences ...
==== //depot/perl/dump.c#321 (text) ====
Index: perl/dump.c
--- perl/dump.c#320~34698~ 2008-11-02 13:12:59.000000000 -0800
+++ perl/dump.c 2008-11-15 02:15:22.000000000 -0800
@@ -532,6 +532,8 @@
finish:
while (unref--)
sv_catpv(t, ")");
+ if (PL_tainting && SvTAINTED(sv))
+ sv_catpv(t, " [tainted]");
return SvPV_nolen(t);
}
End of Patch.
