diff options
| -rw-r--r-- | ext/DynaLoader/dl_win32.xs | 6 | ||||
| -rw-r--r-- | perl.c | 2 | ||||
| -rw-r--r-- | win32/perllib.c | 2 | ||||
| -rw-r--r-- | win32/win32.h | 2 |
4 files changed, 6 insertions, 6 deletions
diff --git a/ext/DynaLoader/dl_win32.xs b/ext/DynaLoader/dl_win32.xs index 94296cdd77..5471870c26 100644 --- a/ext/DynaLoader/dl_win32.xs +++ b/ext/DynaLoader/dl_win32.xs @@ -67,9 +67,9 @@ dl_private_init(pTHX) static int dl_static_linked(char *filename) { - char **p; + const char **p; char *ptr, *hptr; - static char subStr[] = "/auto/"; + static const char subStr[] = "/auto/"; char szBuffer[MAX_PATH]; /* avoid buffer overflow when called with invalid filenames */ @@ -93,7 +93,7 @@ dl_static_linked(char *filename) else ptr = szBuffer; - for (p = staticlinkmodules; *p;p++) { + for (p = (const char **) staticlinkmodules; *p;p++) { if (hptr = strstr(ptr, *p)) { /* found substring, need more detailed check if module name match */ if (hptr==ptr) { @@ -1670,7 +1670,7 @@ S_Internals_V(pTHX_ CV *cv) #endif const int entries = 3 + local_patch_count; int i; - static char non_bincompat_options[] = + static const char non_bincompat_options[] = # ifdef DEBUGGING " DEBUGGING" # endif diff --git a/win32/perllib.c b/win32/perllib.c index e838d0c6db..22e89238e5 100644 --- a/win32/perllib.c +++ b/win32/perllib.c @@ -18,7 +18,7 @@ /* Register any extra external extensions */ -char *staticlinkmodules[] = { +const char * const staticlinkmodules[] = { "DynaLoader", /* other similar records will be included from "perllibst.h" */ #define STATIC1 diff --git a/win32/win32.h b/win32/win32.h index 9d229dbc68..0474c61bc9 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -335,7 +335,7 @@ extern char * win32_get_vendorlib(const char *pl, STRLEN *const len); extern void win32_delete_internal_host(void *h); #endif -extern char * staticlinkmodules[]; +extern const char * const staticlinkmodules[]; END_EXTERN_C |