nxt_perl_psgi.c (2060:a1991578c62e) nxt_perl_psgi.c (2078:0996dd223cdd)
1
2/*
3 * Copyright (C) Alexander Borisov
4 * Copyright (C) NGINX, Inc.
5 */
6
7#include <perl/nxt_perl_psgi_layer.h>
8

--- 598 unchanged lines hidden (view full) ---

607 if (nxt_slow_path(hash_env == NULL)) {
608 return NULL;
609 }
610
611#define RC(FNS) \
612 do { \
613 if (nxt_slow_path((FNS) != NXT_UNIT_OK)) \
614 goto fail; \
1
2/*
3 * Copyright (C) Alexander Borisov
4 * Copyright (C) NGINX, Inc.
5 */
6
7#include <perl/nxt_perl_psgi_layer.h>
8

--- 598 unchanged lines hidden (view full) ---

607 if (nxt_slow_path(hash_env == NULL)) {
608 return NULL;
609 }
610
611#define RC(FNS) \
612 do { \
613 if (nxt_slow_path((FNS) != NXT_UNIT_OK)) \
614 goto fail; \
615 } while (0)
615 } while (0)
616
617#define NL(S) (S), sizeof(S)-1
618
619 r = req->request;
620
621 RC(nxt_perl_psgi_add_str(my_perl, hash_env, NL("SERVER_SOFTWARE"),
622 (char *) nxt_server.start, nxt_server.length));
623

--- 811 unchanged lines hidden --- 		616
617#define NL(S) (S), sizeof(S)-1
618
619 r = req->request;
620
621 RC(nxt_perl_psgi_add_str(my_perl, hash_env, NL("SERVER_SOFTWARE"),
622 (char *) nxt_server.start, nxt_server.length));
623

--- 811 unchanged lines hidden ---