nxt_perl_psgi.c (612:217e48a3b091) nxt_perl_psgi.c (673:9fa79c719a17)
1
2/*
3 * Copyright (C) Alexander Borisov
4 * Copyright (C) NGINX, Inc.
5 */
6
7#include <perl/nxt_perl_psgi_layer.h>
8

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

591 if (nxt_slow_path((FNS) != NXT_OK)) \
592 goto fail; \
593 } while (0)
594
595#define GET_STR(ATTR) \
596 RC(nxt_perl_psgi_read_add_env(my_perl, task, rmsg, \
597 hash_env, ATTR, &str))
598
1
2/*
3 * Copyright (C) Alexander Borisov
4 * Copyright (C) NGINX, Inc.
5 */
6
7#include <perl/nxt_perl_psgi_layer.h>
8

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

591 if (nxt_slow_path((FNS) != NXT_OK)) \
592 goto fail; \
593 } while (0)
594
595#define GET_STR(ATTR) \
596 RC(nxt_perl_psgi_read_add_env(my_perl, task, rmsg, \
597 hash_env, ATTR, &str))
598
599 RC(nxt_perl_psgi_env_append_str(my_perl, hash_env,
600 "SERVER_SOFTWARE", &nxt_server));
601
599 GET_STR("REQUEST_METHOD");
600 GET_STR("REQUEST_URI");
601
602 target = str;
603
604 RC(nxt_app_msg_read_str(task, rmsg, &path));
605 RC(nxt_app_msg_read_size(task, rmsg, &query_size));
606

--- 541 unchanged lines hidden ---
602 GET_STR("REQUEST_METHOD");
603 GET_STR("REQUEST_URI");
604
605 target = str;
606
607 RC(nxt_app_msg_read_str(task, rmsg, &path));
608 RC(nxt_app_msg_read_size(task, rmsg, &query_size));
609

--- 541 unchanged lines hidden ---