1 files changed, 3 insertions, 2 deletions
diff --git a/doio.c b/doio.c
index 2630252ae1..79ab20c8cf 100644
--- a/doio.c
+++ b/doio.c
@@ -1106,12 +1106,13 @@ Perl_io_close(pTHX_ IO *io, GV *gv, bool not_implicit, bool warn_on_fail)
 		Perl_ck_warner_d(aTHX_ packWARN(WARN_IO),
 				"Warning: unable to close filehandle %"
 				 HEKf" properly: %"SVf,
-				 GvNAME_HEK(gv), get_sv("!",GV_ADD));
+				 HEKfARG(GvNAME_HEK(gv)),
+                                 SVfARG(get_sv("!",GV_ADD)));
 	    else
 		Perl_ck_warner_d(aTHX_ packWARN(WARN_IO),
 				"Warning: unable to close filehandle "
 				"properly: %"SVf,
-				 get_sv("!",GV_ADD));
+				 SVfARG(get_sv("!",GV_ADD)));
 	}
     }
     else if (not_implicit) {