This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
silence some gcc -pendantic warnings
[perl5.git] / doio.c
diff --git a/doio.c b/doio.c
index 2630252..79ab20c 100644 (file)
--- 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) {