[PATH bsd_glob.c perl@9472] Shut up gcc warning in bsd_glob.c

Message-ID: <Pine.LNX.4.30.0104010958250.7703-100000@orpheus.gellyfish.com>

p4raw-id: //depot/perl@9509

diff --git a/ext/File/Glob/bsd_glob.c b/ext/File/Glob/bsd_glob.c
index 1a12ddf..15ee659 100644 (file)
--- a/ext/File/Glob/bsd_glob.c
+++ b/ext/File/Glob/bsd_glob.c
@@ -710,7 +710,7 @@ glob3(Char *pathbuf, Char *pathend, Char *pattern,
 
        /* Search directory for matching names. */
        if (pglob->gl_flags & GLOB_ALTDIRFUNC)
-               readdirfunc = pglob->gl_readdir;
+               readdirfunc = (Direntry_t *(*)(DIR *))pglob->gl_readdir;
        else
                readdirfunc = my_readdir;
        while ((dp = (*readdirfunc)(dirp))) {