1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index 5f85fd7afb..9ebb3d2268 100644
--- a/perl.c
+++ b/perl.c
@@ -1160,7 +1160,7 @@ perl_destruct(pTHXx)
 	for (sva = PL_sv_arenaroot; sva; sva = MUTABLE_SV(SvANY(sva))) {
 	    svend = &sva[SvREFCNT(sva)];
 	    for (sv = sva + 1; sv < svend; ++sv) {
-		if (SvTYPE(sv) != SVTYPEMASK) {
+		if (SvTYPE(sv) != (svtype)SVTYPEMASK) {
 		    PerlIO_printf(Perl_debug_log, "leaked: sv=0x%p"
 			" flags=0x%"UVxf
 			" refcnt=%"UVuf pTHX__FORMAT "\n"