From 2c9bcd06050927de13148886dee61e13594e08d9 Mon Sep 17 00:00:00 2001 From: Fabrizio Gennari Date: Tue, 30 Jun 2015 23:54:40 +0200 Subject: [PATCH] Check whether *value is indeed an SvRV before casting it --- plugins/psgi/psgi_loader.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plugins/psgi/psgi_loader.c b/plugins/psgi/psgi_loader.c index d92dda8c..9fbcbeac 100644 --- a/plugins/psgi/psgi_loader.c +++ b/plugins/psgi/psgi_loader.c @@ -285,7 +285,7 @@ nonworker: uwsgi_log("[perl] WARNING !!! unable to build uwsgi::opt hash !!!\n"); goto end; } - if (SvTYPE(SvRV(*value)) == SVt_PVAV) { + if (SvROK(*value) && SvTYPE(SvRV(*value)) == SVt_PVAV) { if (uwsgi.exported_opts[i]->value == NULL) { av_push((AV *)SvRV(*value), newSViv(1)); }