From c99f5d08752a402fd34fdf981b6d8a9c39edc950 Mon Sep 17 00:00:00 2001
From: Unbit <info@unbit.it>
Date: Sat, 30 Nov 2013 12:46:17 +0100
Subject: [PATCH] fixed sharedarea_wait perl api

---
 plugins/psgi/uwsgi_plmodule.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/plugins/psgi/uwsgi_plmodule.c b/plugins/psgi/uwsgi_plmodule.c
index 37d83f0a..3de0a253 100644
--- a/plugins/psgi/uwsgi_plmodule.c
+++ b/plugins/psgi/uwsgi_plmodule.c
@@ -735,16 +735,17 @@ XS(XS_metric_get) {
 XS(XS_sharedarea_wait) {
         dXSARGS;
         int id;
+	int freq = 0;
 	int timeout = 0;
 
 	psgi_check_args(1);
 	
 	id = SvIV(ST(0));
 	if (items > 1) {
-		timeout = SvIV(ST(1));
+		freq = SvIV(ST(1));
 	}
 
-	if (uwsgi_sharedarea_wait(id, timeout, 0)) {
+	if (uwsgi_sharedarea_wait(id, freq, timeout)) {
                 croak("unable to wait for sharedarea %d", id);
                 XSRETURN_UNDEF;
         }