diff options
| author | Chip Salzenberg <chip@pobox.com> | 2011-08-23 16:51:28 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2011-08-23 16:51:28 -0700 |
| commit | e4787c0c2a0ba73363e536994429000307f03526 (patch) | |
| tree | 65f723912e114d9619b40cfc38e675711613686a /perl.c | |
| parent | e59953eb69409565f494ecd850cd487996d84637 (diff) | |
| download | perl-e4787c0c2a0ba73363e536994429000307f03526.tar.gz | |
SVTYPEMASK must be cast to (svtype) when comparing to SvTYPE()
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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" |