diff options
| author | Stas Bekman <stas@stason.org> | 2004-04-19 11:10:01 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-04-21 08:36:38 +0000 |
| commit | 472d47bc592782703b1974a20dbd65f617e06414 (patch) | |
| tree | f60e0e3796052726c476f3f6a3da3200294d14e7 /hv.c | |
| parent | 0ca33fed0ac502beb86fe06f05e7aeff66a75665 (diff) | |
| download | perl-472d47bc592782703b1974a20dbd65f617e06414.tar.gz | |
[patch] log the interpreter id in warnings
Message-ID: <40847869.1000906@stason.org>
p4raw-id: //depot/perl@22721
Diffstat (limited to 'hv.c')
| -rw-r--r-- | hv.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -2016,9 +2016,10 @@ S_unshare_hek_or_pvn(pTHX_ HEK *hek, const char *str, I32 len, U32 hash) UNLOCK_STRTAB_MUTEX; if (!found && ckWARN_d(WARN_INTERNAL)) Perl_warner(aTHX_ packWARN(WARN_INTERNAL), - "Attempt to free non-existent shared string '%s'%s", + "Attempt to free non-existent shared string '%s'%s" + pTHX__FORMAT, hek ? HEK_KEY(hek) : str, - (k_flags & HVhek_UTF8) ? " (utf8)" : ""); + ((k_flags & HVhek_UTF8) ? " (utf8)" : "") pTHX__VALUE); if (k_flags & HVhek_FREEKEY) Safefree(str); } |