diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2014-05-31 01:13:26 +0200 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-06-13 00:00:32 +0200 |
| commit | 10bafe900712959ffc221cebb2efefdd192d152f (patch) | |
| tree | cca2b24075ee09924bdc708458e72779d128e426 /hv.c | |
| parent | d0b86e2f7c43ab4fc0721d279c46624052695726 (diff) | |
| download | perl-10bafe900712959ffc221cebb2efefdd192d152f.tar.gz | |
Adding missing HEKfARG() invocations
This silences a chunk of warnings under -Wformat
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1801,7 +1801,7 @@ Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags) if (PL_phase != PERL_PHASE_DESTRUCT && HvNAME(hv)) { if (PL_stashcache) { DEBUG_o(Perl_deb(aTHX_ "hv_undef_flags clearing PL_stashcache for '%" - HEKf"'\n", HvNAME_HEK(hv))); + HEKf"'\n", HEKfARG(HvNAME_HEK(hv)))); (void)hv_deletehek(PL_stashcache, HvNAME_HEK(hv), G_DISCARD); } hv_name_set(hv, NULL, 0, 0); @@ -1820,7 +1820,7 @@ Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags) mro_isa_changed_in(hv); if (PL_stashcache) { DEBUG_o(Perl_deb(aTHX_ "hv_undef_flags clearing PL_stashcache for effective name '%" - HEKf"'\n", HvENAME_HEK(hv))); + HEKf"'\n", HEKfARG(HvENAME_HEK(hv)))); (void)hv_deletehek(PL_stashcache, HvENAME_HEK(hv), G_DISCARD); } } @@ -1831,7 +1831,7 @@ Perl_hv_undef_flags(pTHX_ HV *hv, U32 flags) if (flags & HV_NAME_SETALL ? !!HvAUX(hv)->xhv_name_u.xhvnameu_name : !!name) { if (name && PL_stashcache) { DEBUG_o(Perl_deb(aTHX_ "hv_undef_flags clearing PL_stashcache for name '%" - HEKf"'\n", HvNAME_HEK(hv))); + HEKf"'\n", HEKfARG(HvNAME_HEK(hv)))); (void)hv_deletehek(PL_stashcache, HvNAME_HEK(hv), G_DISCARD); } hv_name_set(hv, NULL, 0, flags); |