From 03f3961765f87fb8bccb4e3fa5b9e2e533d7dc30 Mon Sep 17 00:00:00 2001 From: Aaron Crane Date: Tue, 17 Oct 2017 17:30:18 +0100 Subject: Use snprintf() in favour of sprintf() --- taint.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'taint.c') diff --git a/taint.c b/taint.c index 1b78928867..ae0c2c9d84 100644 --- a/taint.c +++ b/taint.c @@ -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; -- cgit v1.2.1