Skip to content

Commit 5c4911a

Browse files
committed
perl: Constify some local static variables
These somehow got missed in my previous constification patches... Signed-off-by: Andrew Clayton <a.clayton@nginx.com>
1 parent c7e921c commit 5c4911a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/perl/nxt_perl_psgi.c

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -407,15 +407,15 @@ nxt_perl_psgi_module_create(const char *script)
407407
char *buf, *p;
408408
size_t length;
409409

410-
static nxt_str_t prefix = nxt_string(
410+
static const nxt_str_t prefix = nxt_string(
411411
"package NGINX::Unit::Sandbox;"
412412
"sub new {"
413413
" return bless {}, $_[0];"
414414
"}"
415415
"{my $app = do \""
416416
);
417417

418-
static nxt_str_t suffix = nxt_string_zero(
418+
static const nxt_str_t suffix = nxt_string_zero(
419419
"\";"
420420
"unless ($app) {"
421421
" if($@ || $1) {die $@ || $1}"

0 commit comments

Comments
 (0)