This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
typo fixes to installhtml
[perl5.git] / malloc.c
index df66e90..e9b200b 100644 (file)
--- a/malloc.c
+++ b/malloc.c
@@ -496,7 +496,7 @@ free(mp)
        bucket = OV_INDEX(op);
 #endif 
        if (OV_MAGIC(op, bucket) != MAGIC) {
-               static bad_free_warn = -1;
+               static int bad_free_warn = -1;
                if (bad_free_warn == -1) {
                    char *pbf = getenv("PERL_BADFREE");
                    bad_free_warn = (pbf) ? atoi(pbf) : 1;