diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-29 05:37:12 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-01-29 05:37:12 +0000 |
| commit | 7f848b6b8b0b3c0ddcfdc59f43b1e261084ffa51 (patch) | |
| tree | f047aaf25b71fcad95c5fde208613be48c290985 /dump.c | |
| parent | cfa2c302336c76d17e447d69dc3aba37b84f1595 (diff) | |
| download | perl-7f848b6b8b0b3c0ddcfdc59f43b1e261084ffa51.tar.gz | |
Retract the %_/SVf change (part of #18456) for PROTOTYPE (CV)
dumping (but now use SvPV_nolen). (This change made an empty
prototype to show up as "_" under -Uuseperlio.)
p4raw-id: //depot/perl@18600
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1299,7 +1299,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo break; case SVt_PVCV: if (SvPOK(sv)) - Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%"SVf"\"\n", sv); + Perl_dump_indent(aTHX_ level, file, " PROTOTYPE = \"%s\"\n", SvPV_nolen(sv)); /* FALL THROUGH */ case SVt_PVFM: do_hv_dump(level, file, " COMP_STASH", CvSTASH(sv)); |