This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In Glob.xs, use memset() instead of bzero()
[perl5.git] / ext / File-Glob / Glob.xs
index 5a08a0d..91b9f4d 100644 (file)
@@ -64,7 +64,7 @@ PPCODE:
        }
 
        /* call glob */
-       bzero(&pglob, sizeof(glob_t));
+       memset(&pglob, 0, sizeof(glob_t));
        retval = bsd_glob(pattern, flags, errfunc, &pglob);
        GLOB_ERROR = retval;