In S_init_perllib(), s can be const char*

1 files changed, 1 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 6e4e3e44bd..ca9ab00357 100644
--- a/perl.c
+++ b/perl.c
@@ -4095,7 +4095,7 @@ S_init_perllib(pTHX)
 #ifndef VMS
     const char *perl5lib;
 #endif
-    char *s;
+    const char *s;
 #ifdef WIN32
     STRLEN len;
 #endif