X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/2f680c0c44778f97c056fb06d60fb03f4cf69c31..a5ffa9b475a426bc73366db01f7cc92a3811bc3a:/src/src/perl.c

diff --git a/src/src/perl.c b/src/src/perl.c
index fbe9ee842..92218a6ef 100644
--- a/src/src/perl.c
+++ b/src/src/perl.c
@@ -186,7 +186,7 @@ call_perl_cat(uschar *yield, int *sizep, int *ptrp, uschar **errstrp,
     return NULL;
     }
   str = US SvPV(sv, len);
-  yield = string_cat(yield, sizep, ptrp, str, (int)len);
+  yield = string_catn(yield, sizep, ptrp, str, (int)len);
   FREETMPS;
   LEAVE;