Mercurial > hg > nginx

changeset 5306:43900b822890

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Perl: fixed syntax usage for C preprocessor directives. As per perlxs, C preprocessor directives should be at the first non-whitespace of a line to avoid interpreting them as comments. #if and #endif are moved so that there are no blank lines before them to retain them as part of the function body.
author Sergey Kandaurov <pluknet@nginx.com>
date Mon, 29 Jul 2013 17:30:01 +0400
parents 12b750d35162
children 644a07952629
files src/http/modules/perl/nginx.xs
diffstat 1 files changed, 4 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/http/modules/perl/nginx.xs
+++ b/src/http/modules/perl/nginx.xs
@@ -261,13 +261,12 @@ header_in(r, key)
             sep = ';';
             goto multi;
         }
-
-    #if (NGX_HTTP_X_FORWARDED_FOR)
+#if (NGX_HTTP_X_FORWARDED_FOR)
         if (hh->offset == offsetof(ngx_http_headers_in_t, x_forwarded_for)) {
             sep = ',';
             goto multi;
         }
-    #endif
+#endif
 
         if (hh->offset) {
 
@@ -898,8 +897,7 @@ variable(r, name, value = NULL)
 
     var.len = len;
     var.data = lowcase;
-
-    #if (NGX_DEBUG)
+#if (NGX_DEBUG)
 
     if (value) {
         ngx_log_debug2(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
@@ -908,8 +906,7 @@ variable(r, name, value = NULL)
         ngx_log_debug1(NGX_LOG_DEBUG_HTTP, r->connection->log, 0,
                        "perl variable: \"%V\"", &var);
     }
-
-    #endif
+#endif
 
     vv = ngx_http_get_variable(r, &var, hash);
     if (vv == NULL) {