diff options
author | David Mitchell <davem@iabyn.com> | 2015-06-19 14:52:17 +0100 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2015-06-19 15:57:14 +0100 |
commit | ac892e4a230de5bdb9243ef5c82b0fb5be7f8975 (patch) | |
tree | c7372b2e9aeab97a861ef1d8f3a205997ec34f8e /doio.c | |
parent | d48cfc773d16936b4dfcfc305fcae6cc56950fce (diff) | |
download | perl-ac892e4a230de5bdb9243ef5c82b0fb5be7f8975.tar.gz |
silence some gcc -pendantic warnings
Diffstat (limited to 'doio.c')
-rw-r--r-- | doio.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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) { |