diff options
| author | Robin Barker <RMBarker@cpan.org> | 2003-05-16 18:16:57 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-16 15:56:33 +0000 |
| commit | fd30fd187c5d5b74a2ce5f760a0d68c28256528e (patch) | |
| tree | ad4a59ccdb6b463be17dc256561ca11ec10b19eb /hv.c | |
| parent | 04fa0c702a9221c225ba8695a20b08d7da04409f (diff) | |
| download | perl-fd30fd187c5d5b74a2ce5f760a0d68c28256528e.tar.gz | |
RE: maint snapshot @ 19525
Message-ID: <533D273D4014D411AB1D00062938C4D90404651D@hotel.npl.co.uk>
(Part #2: the hv.c SVf)
p4raw-id: //depot/perl@19528
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1717,8 +1717,8 @@ Perl_hv_clear(pTHX_ HV *hv) if (HeVAL(entry) && SvREADONLY(HeVAL(entry))) { SV* keysv = hv_iterkeysv(entry); Perl_croak(aTHX_ - "Attempt to delete readonly key '%_' from a restricted hash", - keysv); + "Attempt to delete readonly key '%"SVf"' from a restricted hash", + keysv); } SvREFCNT_dec(HeVAL(entry)); HeVAL(entry) = &PL_sv_undef; |