diff options
| -rw-r--r-- | pod/perlapi.pod | 2 | ||||
| -rw-r--r-- | sv.c | 4 |
2 files changed, 2 insertions, 4 deletions
diff --git a/pod/perlapi.pod b/pod/perlapi.pod index a724f3eb4d..07319f27ac 100644 --- a/pod/perlapi.pod +++ b/pod/perlapi.pod @@ -5097,8 +5097,6 @@ missing (NULL). When running with taint checks enabled, indicates via C<maybe_tainted> if results are untrustworthy (often due to the use of locales). -XXX Except that it maybe_tainted is never assigned to. - Usually used via one of its frontends C<sv_vcatpvf> and C<sv_vcatpvf_mg>. void sv_vcatpvfn(SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *maybe_tainted) @@ -9141,13 +9141,13 @@ missing (NULL). When running with taint checks enabled, indicates via C<maybe_tainted> if results are untrustworthy (often due to the use of locales). -XXX Except that it maybe_tainted is never assigned to. - Usually used via one of its frontends C<sv_vcatpvf> and C<sv_vcatpvf_mg>. =cut */ +/* XXX maybe_tainted is never assigned to, so the doc above is lying. */ + void Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV **svargs, I32 svmax, bool *maybe_tainted) { |