X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/041457d90dbb6fb79a72c7a8462f01423f2daa09..62403a3c834f3ce459f6efd4d74fba81521e3342:/regexec.c

diff --git a/regexec.c b/regexec.c
index c764c37..d19b82e 100644
--- a/regexec.c
+++ b/regexec.c
@@ -4660,7 +4660,7 @@ Perl_regclass_swash(pTHX_ register const regnode* node, bool doinit, SV** listsv
 	if (PL_regdata->what[n] == 's') {
 	    SV * const rv = (SV*)PL_regdata->data[n];
 	    AV * const av = (AV*)SvRV((SV*)rv);
-	    SV **ary = AvARRAY(av);
+	    SV **const ary = AvARRAY(av);
 	    SV **a, **b;
 	
 	    /* See the end of regcomp.c:S_reglass() for