phpged/unit
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity

perl: Constify some local static variables

Browse source 
These somehow got missed in my previous constification patches...

Signed-off-by: Andrew Clayton <a.clayton@nginx.com>
This commit is contained in:
Andrew Clayton 2024-06-21 23:56:20 +01:00
parent c7e921c7f8
commit 5c4911a35e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/perl/nxt_perl_psgi.c
View file

@ -407,7 +407,7 @@ nxt_perl_psgi_module_create(const char *script)
char *buf, *p;
size_t length;
static nxt_str_t prefix = nxt_string(
static const nxt_str_t prefix = nxt_string(
"package NGINX::Unit::Sandbox;"
"sub new {"
" return bless {}, $_[0];"
@ -415,7 +415,7 @@ nxt_perl_psgi_module_create(const char *script)
"{my $app = do \""
);
static nxt_str_t suffix = nxt_string_zero(
static const nxt_str_t suffix = nxt_string_zero(
"\";"
"unless ($app) {"
" if($@ || $1) {die $@ || $1}"