From: Vsevolod Stakhov <vsevolod@rambler-co.ru>
Date: Tue, 24 Jun 2008 13:55:36 +0000 (+0400)
Subject: * Init perl XS correctly
X-Git-Tag: 0.2.7~397
X-Git-Url: https://source.dussan.org/?a=commitdiff_plain;h=5c04a3b81677258da055dd686a21faf2896fa145;p=rspamd.git

* Init perl XS correctly
---

diff --git a/main.c b/main.c
index 779e97eb0..e53f7daf2 100644
--- a/main.c
+++ b/main.c
@@ -158,7 +158,7 @@ main (int argc, char **argv)
 	struct sockaddr_un *un_addr;
 	FILE *f;
 	pid_t wrk;
-	char *args[] = { "", NULL };
+	char *args[] = { "", "-e", "0", NULL };
 
 	rspamd = (struct rspamd_main *)g_malloc (sizeof (struct rspamd_main));
 	bzero (rspamd, sizeof (struct rspamd_main));
@@ -241,7 +241,7 @@ main (int argc, char **argv)
 	PERL_SET_CONTEXT (perl_interpreter);
 	perl_construct (perl_interpreter);
 	PL_exit_flags |= PERL_EXIT_DESTRUCT_END;
-	perl_parse (perl_interpreter, xs_init, 1, args, NULL);
+	perl_parse (perl_interpreter, xs_init, 3, args, NULL);
 	/* Block signals to use sigsuspend in future */
 	sigprocmask(SIG_BLOCK, &signals.sa_mask, NULL);