fixed sharedarea_wait perl api

This commit is contained in:
Unbit
2013-11-30 12:46:17 +01:00
parent b972c2d6bb
commit c99f5d0875
+3 -2
View File
@@ -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;
}