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 /gv.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 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1246,7 +1246,8 @@ Perl_gp_free(pTHX_ GV *gv) if (gp->gp_refcnt == 0) { if (ckWARN_d(WARN_INTERNAL)) Perl_warner(aTHX_ packWARN(WARN_INTERNAL), - "Attempt to free unreferenced glob pointers"); + "Attempt to free unreferenced glob pointers" + pTHX__FORMAT pTHX__VALUE); return; } if (gp->gp_cv) { |