diff options
author | TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> | 2022-10-05 23:34:18 +0900 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-10-13 10:27:43 -0600 |
commit | e27880ac21ce100eceb1e918e221ca0fbe10d095 (patch) | |
tree | c948c4320b6b514fa259eb4d3e311095d22a3f12 /op.c | |
parent | 78b0aa4aa590b95ef8e01b850c0d643510923b24 (diff) | |
download | perl-e27880ac21ce100eceb1e918e221ca0fbe10d095.tar.gz |
Use `LINE_Tf` for formatting line numbers
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -10048,9 +10048,9 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block) GV * const db_postponed = gv_fetchpvs("DB::postponed", GV_ADDMULTI, SVt_PVHV); HV *hv; - SV * const sv = Perl_newSVpvf(aTHX_ "%s:%ld-%" LINE_Tf, + SV * const sv = Perl_newSVpvf(aTHX_ "%s:%" LINE_Tf "-%" LINE_Tf, CopFILE(PL_curcop), - (long)PL_subline, + (line_t)PL_subline, CopLINE(PL_curcop)); if (HvNAME_HEK(PL_curstash)) { sv_sethek(tmpstr, HvNAME_HEK(PL_curstash)); @@ -10656,9 +10656,9 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, GV * const db_postponed = gv_fetchpvs("DB::postponed", GV_ADDMULTI, SVt_PVHV); HV *hv; - SV * const sv = Perl_newSVpvf(aTHX_ "%s:%ld-%" LINE_Tf, + SV * const sv = Perl_newSVpvf(aTHX_ "%s:%" LINE_Tf "-%" LINE_Tf, CopFILE(PL_curcop), - (long)PL_subline, + (line_t)PL_subline, CopLINE(PL_curcop)); (void)hv_store_ent(GvHV(PL_DBsub), tmpstr, sv, 0); hv = GvHVn(db_postponed); |