diff options
author | Paul "LeoNerd" Evans <leonerd@leonerd.org.uk> | 2022-10-27 17:05:10 +0100 |
---|---|---|
committer | Paul Evans <leonerd@leonerd.org.uk> | 2022-10-29 20:24:38 +0100 |
commit | 06d92f00e810ad2f12b8fb9c1adf0d22765d6ccc (patch) | |
tree | d4b4720cca47edb5d8fcf4926780cb71d653481f | |
parent | 888c387824d4a13e2be0a8869a6a6470497ea96c (diff) | |
download | perl-06d92f00e810ad2f12b8fb9c1adf0d22765d6ccc.tar.gz |
Use new xV_FROM_REF macros
-rw-r--r-- | dump.c | 7 |
1 files changed, 2 insertions, 5 deletions
@@ -804,8 +804,7 @@ Perl_dump_sub_perl(pTHX_ const GV *gv, bool justperl) PERL_ARGS_ASSERT_DUMP_SUB_PERL; - cv = isGV_with_GP(gv) ? GvCV(gv) : - (assert(SvROK((SV*)gv)), (CV*)SvRV((SV*)gv)); + cv = isGV_with_GP(gv) ? GvCV(gv) : CV_FROM_REF((SV*)gv); if (justperl && (CvISXSUB(cv) || !CvROOT(cv))) return; @@ -877,10 +876,8 @@ S_gv_display(pTHX_ GV *gv) if (isGV_with_GP(gv)) gv_fullname3(raw, gv, NULL); else { - assert(SvROK(gv)); - assert(SvTYPE(SvRV(gv)) == SVt_PVCV); Perl_sv_catpvf(aTHX_ raw, "cv ref: %s", - SvPV_nolen_const(cv_name((CV *)SvRV(gv), name, 0))); + SvPV_nolen_const(cv_name(CV_FROM_REF(gv), name, 0))); } rawpv = SvPV_const(raw, len); generic_pv_escape(name, rawpv, len, SvUTF8(raw)); |