diff options
author | TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> | 2022-10-04 23:58:33 +0900 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-10-13 10:27:43 -0600 |
commit | 1932805f63d6181a90fe36fabbdc3755a78b072f (patch) | |
tree | df191c9e36b88569fa1ad23a2f1444d4755c9a09 /op.c | |
parent | be5c21321156733f58ac73b090ea937da104f7fa (diff) | |
download | perl-1932805f63d6181a90fe36fabbdc3755a78b072f.tar.gz |
Use `LINE_Tf` thoroughly for formatting the value of CopLINE()
The value of CopLINE() used to be formatted with various way; sometimes
with `%ld` and `(long)` cast, sometimes `IVdf` and `(IV)` cast, or `%d`
and so on.
Diffstat (limited to 'op.c')
-rw-r--r-- | op.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -10048,10 +10048,10 @@ 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-%ld", + SV * const sv = Perl_newSVpvf(aTHX_ "%s:%ld-%" LINE_Tf, CopFILE(PL_curcop), (long)PL_subline, - (long)CopLINE(PL_curcop)); + CopLINE(PL_curcop)); if (HvNAME_HEK(PL_curstash)) { sv_sethek(tmpstr, HvNAME_HEK(PL_curstash)); sv_catpvs(tmpstr, "::"); @@ -10260,9 +10260,9 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, has_name = TRUE; } else if (PERLDB_NAMEANON && CopLINE(PL_curcop)) { SV * const sv = sv_newmortal(); - Perl_sv_setpvf(aTHX_ sv, "%s[%s:%" IVdf "]", + Perl_sv_setpvf(aTHX_ sv, "%s[%s:%" LINE_Tf "]", PL_curstash ? "__ANON__" : "__ANON__::__ANON__", - CopFILE(PL_curcop), (IV)CopLINE(PL_curcop)); + CopFILE(PL_curcop), CopLINE(PL_curcop)); gv = gv_fetchsv(sv, gv_fetch_flags, SVt_PVCV); has_name = TRUE; } else if (PL_curstash) { @@ -10656,10 +10656,10 @@ 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-%ld", + SV * const sv = Perl_newSVpvf(aTHX_ "%s:%ld-%" LINE_Tf, CopFILE(PL_curcop), (long)PL_subline, - (long)CopLINE(PL_curcop)); + CopLINE(PL_curcop)); (void)hv_store_ent(GvHV(PL_DBsub), tmpstr, sv, 0); hv = GvHVn(db_postponed); if (HvTOTALKEYS(hv) > 0 && hv_exists_ent(hv, tmpstr, 0)) { @@ -13973,7 +13973,7 @@ Perl_ck_entersub_args_core(pTHX_ OP *entersubop, GV *namegv, SV *protosv) case 'L': return newSVOP( OP_CONST, 0, Perl_newSVpvf(aTHX_ - "%" IVdf, (IV)CopLINE(PL_curcop) + "%" LINE_Tf, CopLINE(PL_curcop) ) ); case 'P': return newSVOP(OP_CONST, 0, |