Mercurial > hg > nginx
diff src/http/modules/perl/ngx_http_perl_module.c @ 775:a452a0e13539
check nginx.pm version
author | Igor Sysoev <igor@sysoev.ru> |
---|---|
date | Thu, 12 Oct 2006 19:55:15 +0000 |
parents | 7e24168b0853 |
children | 6a99bc84c135 |
line wrap: on
line diff
--- a/src/http/modules/perl/ngx_http_perl_module.c Thu Oct 12 13:56:16 2006 +0000 +++ b/src/http/modules/perl/ngx_http_perl_module.c Thu Oct 12 19:55:15 2006 +0000 @@ -565,7 +565,9 @@ ngx_log_t *log) { int n; - char *embedding[6]; + STRLEN len; + SV *sv; + char *ver, *embedding[6]; PerlInterpreter *perl; ngx_log_debug0(NGX_LOG_DEBUG_HTTP, log, 0, "create perl interpreter"); @@ -634,6 +636,16 @@ goto fail; } + sv = get_sv("nginx::VERSION", FALSE); + ver = SvPV(sv, len); + + if (ngx_strcmp(ver, NGINX_VERSION) != 0) { + ngx_log_error(NGX_LOG_ALERT, log, 0, + "version " NGINX_VERSION " of nginx.pm is required, " + "but %s was found", ver); + goto fail; + } + if (ngx_http_perl_run_requires(aTHX_ &pmcf->requires, log) != NGX_OK) { goto fail; }