X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=src%2Fsrc%2Fperl.c;h=92218a6efb1e5d33ba9c5289dc53a9b7e9337a03;hb=d7571ac555518797c3553f6080f6aab3fda6ec58;hp=fbe9ee8427dafb49e471647ab1dac7b1c8038ea2;hpb=2f680c0c44778f97c056fb06d60fb03f4cf69c31;p=user%2Fhenk%2Fcode%2Fexim.git

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;