From 6fca0082ec4f3b34a0dabc78331bad8c22489dd2 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Mon, 10 Jul 2006 17:23:02 +0000
Subject: Convert some low hanging fruit to my_strlcpy/my_strlcat.

p4raw-id: //depot/perl@28533
---
 mg.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'mg.c')

diff --git a/mg.c b/mg.c
index dec8588efc..168d456c62 100644
--- a/mg.c
+++ b/mg.c
@@ -1073,8 +1073,7 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
 	    Stat_t sbuf;
 	    int i = 0, j = 0;
 
-	    strncpy(eltbuf, s, 255);
-	    eltbuf[255] = 0;
+	    my_strlcpy(eltbuf, s, sizeof(eltbuf));
 	    elt = eltbuf;
 	    do {          /* DCL$PATH may be a search list */
 		while (1) {   /* as may dev portion of any element */
-- 
cgit v1.2.1