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 /hv.c | |
| parent | e59953eb69409565f494ecd850cd487996d84637 (diff) | |
| download | perl-e4787c0c2a0ba73363e536994429000307f03526.tar.gz | |
SVTYPEMASK must be cast to (svtype) when comparing to SvTYPE()
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -340,7 +340,7 @@ Perl_hv_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen, if (!hv) return NULL; - if (SvTYPE(hv) == SVTYPEMASK) + if (SvTYPE(hv) == (svtype)SVTYPEMASK) return NULL; assert(SvTYPE(hv) == SVt_PVHV); |