You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2013/07/12 10:08:01 UTC
svn commit: r1502464 -
/perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h
Author: stevehay
Date: Fri Jul 12 08:08:00 2013
New Revision: 1502464
URL: http://svn.apache.org/r1502464
Log:
Move all declarations before code: VC++ doesn't support code before declarations unless compiling as C++.
Modified:
perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h
Modified: perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h
URL: http://svn.apache.org/viewvc/perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h?rev=1502464&r1=1502463&r2=1502464&view=diff
==============================================================================
--- perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h (original)
+++ perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h Fri Jul 12 08:08:00 2013
@@ -355,12 +355,18 @@ void mpxs_Apache2__RequestRec_child_term
static MP_INLINE
apr_status_t mpxs_ap_register_auth_provider(pTHX_ I32 items, SV **MARK, SV **SP)
{
+ apr_pool_t *pool;
+ const char *provider_group;
+ const char *provider_name;
+ const char *provider_version;
+ SV *callback1;
+ SV *callback2 = NULL;
+ int type;
+
if (items != 7)
Perl_croak(aTHX_ "pool, provider_group, provider_name, "
"provider_version, callback1, callback2, type");
- apr_pool_t *pool;
-
if (SvROK(*MARK) && sv_derived_from(*MARK, "APR::Pool")) {
IV tmp = SvIV((SV*)SvRV(*MARK));
if (tmp == 0) {
@@ -375,20 +381,20 @@ apr_status_t mpxs_ap_register_auth_provi
}
MARK++;
- const char *provider_group = (const char *)SvPV_nolen(*MARK);
+ provider_group = (const char *)SvPV_nolen(*MARK);
MARK++;
- const char *provider_name = (const char *)SvPV_nolen(*MARK);
+ provider_name = (const char *)SvPV_nolen(*MARK);
MARK++;
- const char *provider_version = (const char *)SvPV_nolen(*MARK);
+ provider_version = (const char *)SvPV_nolen(*MARK);
MARK++;
- SV *callback1 = newSVsv(*MARK);
+ callback1 = newSVsv(*MARK);
MARK++;
- SV *callback2 = NULL;
+ callback2 = NULL;
if (SvROK(*MARK)) {
callback2 = newSVsv(*MARK);
}
MARK++;
- int type = (int)SvIV(*MARK);
+ type = (int)SvIV(*MARK);
return modperl_register_auth_provider(pool, provider_group, provider_name,
provider_version, callback1,