In S_init_perllib(), s can be const char*

diff --git a/perl.c b/perl.c
index 6e4e3e4..ca9ab00 100644 (file)
--- 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