X-Git-Url: https://git.exim.org/exim.git/blobdiff_plain/9242a7e8cfa94bbc9dd7eca6bd651b569b871c4e..0a3c9b00e50a4bd4a7cfca5c9640d8f3c7333cd3:/src/src/perl.c

diff --git a/src/src/perl.c b/src/src/perl.c
index faaebf302..58643f0fa 100644
--- a/src/src/perl.c
+++ b/src/src/perl.c
@@ -3,7 +3,7 @@
 *************************************************/
 
 /* Copyright (c) 1998 Malcolm Beattie */
-/* Copyright (C) 2017  Exim maintainers */
+/* Copyright (C) 1999 - 2018  Exim maintainers */
 
 /* Modified by PH to get rid of the "na" usage, March 1999.
    Modified further by PH for general tidying for Exim 4.
@@ -62,7 +62,7 @@ XS(xs_expand_string)
   ST(0) = sv_newmortal();
   if (str != NULL)
     sv_setpv(ST(0), CCS  str);
-  else if (!expand_string_forcedfail)
+  else if (!f.expand_string_forcedfail)
     croak("syntax error in Exim::expand_string argument: %s",
       expand_string_message);
 }