X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=src%2Fsrc%2Fperl.c;h=543b5d27d1713cd6bc1bc103934c417003252cea;hb=36a3ae5f08725242b1fb4dfecc5617cc9c3e971b;hp=894c1c59dd17151b068f662d8217bc69980f4dbb;hpb=8e669ac162fe3b1040297f1d021de10778dce9d9;p=user%2Fhenk%2Fcode%2Fexim.git

diff --git a/src/src/perl.c b/src/src/perl.c
index 894c1c59d..543b5d27d 100644
--- a/src/src/perl.c
+++ b/src/src/perl.c
@@ -1,5 +1,3 @@
-/* $Cambridge: exim/src/src/perl.c,v 1.4 2005/02/17 11:58:26 ph10 Exp $ */
-
 /*************************************************
 *     Exim - an Internet mail transport agent    *
 *************************************************/
@@ -129,6 +127,8 @@ init_perl(uschar *startup_code)
     perl_eval_sv(sv, G_SCALAR|G_DISCARD|G_KEEPERR);
     SvREFCNT_dec(sv);
     if (SvTRUE(ERRSV)) return US SvPV(ERRSV, len);
+
+    setlocale(LC_ALL, "C");    /* In case it got changed */
     return NULL;
     }
 }