From 03f3961765f87fb8bccb4e3fa5b9e2e533d7dc30 Mon Sep 17 00:00:00 2001
From: Aaron Crane <arc@cpan.org>
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