diff options
| author | Aaron Crane <arc@cpan.org> | 2017-10-17 17:30:18 +0100 |
|---|---|---|
| committer | Aaron Crane <arc@cpan.org> | 2017-10-21 16:52:42 +0100 |
| commit | 03f3961765f87fb8bccb4e3fa5b9e2e533d7dc30 (patch) | |
| tree | 55b5dd025f714d184362ce7005c15fc15fdbc941 /taint.c | |
| parent | 346712be0b77cf7a59cff19c5b96533d9a780268 (diff) | |
| download | perl-03f3961765f87fb8bccb4e3fa5b9e2e533d7dc30.tar.gz | |
Use snprintf() in favour of sprintf()
Diffstat (limited to 'taint.c')
| -rw-r--r-- | taint.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -122,7 +122,7 @@ Perl_taint_env(pTHX) while (1) { MAGIC* mg; if (i) - len = my_sprintf(name,"DCL$PATH;%d", i); + len = my_snprintf(name, sizeof name, "DCL$PATH;%d", i); svp = hv_fetch(GvHVn(PL_envgv), name, len, FALSE); if (!svp || *svp == &PL_sv_undef) break; |