X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/9904d08c64b30f68766a9c6fa12c889cf1f25d34..5903c6ff59527362e869fedb565c56935ce8dd68:/src/src/perl.c

diff --git a/src/src/perl.c b/src/src/perl.c
index 92218a6ef..5f4f0d98d 100644
--- a/src/src/perl.c
+++ b/src/src/perl.c
@@ -60,7 +60,7 @@ XS(xs_expand_string)
   str = expand_string(US SvPV(ST(0), len));
   ST(0) = sv_newmortal();
   if (str != NULL)
-    sv_setpv(ST(0), (const char *) str);
+    sv_setpv(ST(0), CCS  str);
   else if (!expand_string_forcedfail)
     croak("syntax error in Exim::expand_string argument: %s",
       expand_string_message);