Testsuite: OpenSSL version output variances

[exim.git] / src / src / perl.c

diff --git a/src/src/perl.c b/src/src/perl.c
index 5f4f0d98dcad7699173bad27b5762d381047de77..6966d73b5adf96d446e376f2e9936dc74b85e148 100644 (file)
--- a/src/src/perl.c
+++ b/src/src/perl.c
@@ -150,9 +150,8 @@ cleanup_perl(void)
   interp_perl = 0;
 }
 
-uschar *
-call_perl_cat(uschar *yield, int *sizep, int *ptrp, uschar **errstrp,
-  uschar *name, uschar **arg)
+gstring *
+call_perl_cat(gstring * yield, uschar **errstrp, uschar *name, uschar **arg)
 {
   dSP;
   SV *sv;
@@ -186,7 +185,7 @@ call_perl_cat(uschar *yield, int *sizep, int *ptrp, uschar **errstrp,
     return NULL;
     }
   str = US SvPV(sv, len);
-  yield = string_catn(yield, sizep, ptrp, str, (int)len);
+  yield = string_catn(yield, str, (int)len);
   FREETMPS;
   LEAVE;