1 files changed, 1 insertions, 1 deletions
diff --git a/malloc.c b/malloc.c
index 5e3c53053c..6b2275c8dd 100644
--- a/malloc.c
+++ b/malloc.c
@@ -508,7 +508,7 @@ free(void *mp)
 	if (OV_MAGIC(ovp, bucket) != MAGIC) {
 		static int bad_free_warn = -1;
 		if (bad_free_warn == -1) {
-		    char *pbf = PerlENV_getenv("PERL_BADFREE");
+		    char *pbf = PerlEnv_getenv("PERL_BADFREE");
 		    bad_free_warn = (pbf) ? atoi(pbf) : 1;
 		}
 		if (!bad_free_warn)