This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Use correct type to avoid a cast added by fe1c5936a5
authorSteve Hay <steve.m.hay@googlemail.com>
Wed, 31 Oct 2012 08:36:58 +0000 (08:36 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Wed, 31 Oct 2012 08:36:58 +0000 (08:36 +0000)
(Suggested by Tony Cook.)

ext/DynaLoader/dl_win32.xs

index 5471870..05495b8 100644 (file)
@@ -67,7 +67,7 @@ dl_private_init(pTHX)
 static int
 dl_static_linked(char *filename)
 {
-    const char **p;
+    const char * const *p;
     char *ptr, *hptr;
     static const char subStr[] = "/auto/";
     char szBuffer[MAX_PATH];
@@ -93,7 +93,7 @@ dl_static_linked(char *filename)
     else
        ptr = szBuffer;
 
-    for (p = (const char **) staticlinkmodules; *p;p++) {
+    for (p = staticlinkmodules; *p;p++) {
        if (hptr = strstr(ptr, *p)) {
            /* found substring, need more detailed check if module name match */
            if (hptr==ptr) {