From 472d47bc592782703b1974a20dbd65f617e06414 Mon Sep 17 00:00:00 2001 From: Stas Bekman Date: Mon, 19 Apr 2004 11:10:01 -0700 Subject: [patch] log the interpreter id in warnings Message-ID: <40847869.1000906@stason.org> p4raw-id: //depot/perl@22721 --- gv.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gv.c') diff --git a/gv.c b/gv.c index 8a270650b9..68328ac012 100644 --- a/gv.c +++ b/gv.c @@ -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) { -- cgit v1.2.1