Add suggestion to profile to find a better set of hot ops for pp_hot.

[perl5.git] / regexec.c

diff --git a/regexec.c b/regexec.c
index c764c37..d19b82e 100644 (file)
--- 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