perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From steve...@apache.org
Subject svn commit: r1502464 - /perl/modperl/branches/httpd24/xs/Apache2/RequestUtil/Apache2__RequestUtil.h
Date Fri, 12 Jul 2013 08:08:01 GMT
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,



Mime
View raw message