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 /dump.c | |
| parent | d48cfc773d16936b4dfcfc305fcae6cc56950fce (diff) | |
| download | perl-ac892e4a230de5bdb9243ef5c82b0fb5be7f8975.tar.gz | |
silence some gcc -pendantic warnings
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2317,7 +2317,7 @@ S_append_gv_name(pTHX_ GV *gv, SV *out) } sv = newSV(0); gv_fullname4(sv, gv, NULL, FALSE); - Perl_sv_catpvf(aTHX_ out, "%c%-p", '$', sv); + Perl_sv_catpvf(aTHX_ out, "$%"SVf, SVfARG(sv)); SvREFCNT_dec_NN(sv); } @@ -2524,8 +2524,8 @@ Perl_debop(pTHX_ const OP *o) break; case OP_MULTIDEREF: - PerlIO_printf(Perl_debug_log, "(%-p)", - multideref_stringify(o, deb_curcv(cxstack_ix))); + PerlIO_printf(Perl_debug_log, "(%"SVf")", + SVfARG(multideref_stringify(o, deb_curcv(cxstack_ix)))); break; default: |