diff options
| author | Brian Fraser <fraserbn@gmail.com> | 2013-08-05 01:01:35 -0300 |
|---|---|---|
| committer | Brian Fraser <fraserbn@gmail.com> | 2014-01-04 15:37:47 -0300 |
| commit | c53e4eb516ca65d8eacd9bd35b1ed2b66755d6c6 (patch) | |
| tree | 38f7794dc85113ed3765314a5e4472cdb1628762 /dump.c | |
| parent | 01d7523aa4fafae6f4996f7f0f8eec57f4ef419f (diff) | |
| download | perl-c53e4eb516ca65d8eacd9bd35b1ed2b66755d6c6.tar.gz | |
sv_peek didn't add quotes before, doesn't need them now
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -421,7 +421,7 @@ Perl_sv_peek(pTHX_ SV *sv) if (type == SVt_PVCV) { SV * const tmp = newSVpvs_flags("", SVs_TEMP); GV* gvcv = CvGV(sv); - Perl_sv_catpvf(aTHX_ t, "CV(\"%s\")", gvcv + Perl_sv_catpvf(aTHX_ t, "CV(%s)", gvcv ? generic_pv_escape( tmp, GvNAME(gvcv), GvNAMELEN(gvcv), GvNAMEUTF8(gvcv)) : ""); goto finish; |