X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=util.c;h=897360cd665136e1ebedaceb66571e75c1577bc0;hb=436933950535d3942db23a87c1a6344f566a9af4;hp=df6bbf5f33a65b66e2b13057f0104f78fcd6db28;hpb=ef7adf26b48d8441a94b9133216b2ca93f1f3137;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/util.c b/util.c
index df6bbf5..897360c 100644
--- a/util.c
+++ b/util.c
@@ -3896,7 +3896,7 @@ Perl_report_closed_fh(pTHX_ GV *gv, IO *io, const char *func, const char *obj)
     assert(gv);
 
     sv = sv_newmortal();
-    gv_efullname3(sv, gv, Nullch);
+    gv_efullname4(sv, gv, Nullch, FALSE);
     name = SvPVX(sv);
 
     Perl_warner(aTHX_ WARN_CLOSED, "%s() on closed %s %s", func, obj, name);