From 3e7992d0ac91c38b62b19cac476fcbbc6a3eac85 Mon Sep 17 00:00:00 2001
From: "roberto@mrspurr" <roberto@mrspurr>
Date: Mon, 8 Nov 2010 18:14:36 +0100
Subject: [PATCH] added perl embedded module

---
 plugins/psgi/uwsgi_plmodule.c | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 plugins/psgi/uwsgi_plmodule.c

diff --git a/plugins/psgi/uwsgi_plmodule.c b/plugins/psgi/uwsgi_plmodule.c
new file mode 100644
index 00000000..fd69ce74
--- /dev/null
+++ b/plugins/psgi/uwsgi_plmodule.c
@@ -0,0 +1,23 @@
+#include "psgi.h"
+
+extern struct uwsgi_server uwsgi;
+
+#define psgi_xs(func) newXS("uwsgi::" #func, XS_##func, "uwsgi")
+
+XS(XS_reload) {
+    dXSARGS;
+    items = 0;
+
+    uwsgi_log("SENDING HUP TO %d\n", (int) uwsgi.workers[0].pid);
+    if (kill(uwsgi.workers[0].pid, SIGHUP)) {
+    	uwsgi_error("kill()");
+        XSRETURN_NO;
+    }
+    XSRETURN_YES;
+}
+
+
+void init_perl_embedded_module() {
+	psgi_xs(reload);
+}
+