This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
_swash_inversion_hash Rmv X from embed, add const
[perl5.git] / utf8.c
diff --git a/utf8.c b/utf8.c
index 16e0814..18ff1d8 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2582,7 +2582,7 @@ S_swash_get(pTHX_ SV* swash, UV start, UV span)
 }
 
 HV*
-Perl__swash_inversion_hash(pTHX_ SV* swash)
+Perl__swash_inversion_hash(pTHX_ SV* const swash)
 {
 
    /* Subject to change or removal.  For use only in one place in regexec.c