mirror of
https://github.com/clearlinux/uwsgi.git
synced 2026-09-06 05:31:44 +00:00
fixed sharedarea_wait perl api
This commit is contained in:
@@ -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;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user