This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Cast needed to compile bsd_glob.c with C++
authorSteve Peters <steve@fisharerojo.org>
Wed, 16 Aug 2006 17:44:44 +0000 (17:44 +0000)
committerSteve Peters <steve@fisharerojo.org>
Wed, 16 Aug 2006 17:44:44 +0000 (17:44 +0000)
p4raw-id: //depot/perl@28730

ext/File/Glob/bsd_glob.c

index c1dbd2c..4d1e7f0 100644 (file)
@@ -935,7 +935,7 @@ glob3(Char *pathbuf, Char *pathbuf_last, Char *pathend, Char *pathend_last,
        if (pglob->gl_flags & GLOB_ALTDIRFUNC)
                readdirfunc = (Direntry_t *(*)(DIR *))pglob->gl_readdir;
        else
-               readdirfunc = my_readdir;
+               readdirfunc = (Direntry_t *(*)(DIR *))my_readdir;
        while ((dp = (*readdirfunc)(dirp))) {
                register U8 *sc;
                register Char *dc;