diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-27 02:20:06 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-09-27 02:20:06 +0000 |
commit | e6abe6d8247cf3e8d3e08a706b164c5f207b68b6 (patch) | |
tree | 988d6298b0cc73076787c228019ce79e2ece8767 /proto.h | |
parent | b5807cdb4dcca15943f9a9e9da29b721ee5fec38 (diff) | |
download | perl-e6abe6d8247cf3e8d3e08a706b164c5f207b68b6.tar.gz |
Dump SvUTF8(sv)s also as \x{...}.
TODO: dump the SvUTF8() hash keys similarly.
p4raw-id: //depot/perl@12243
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -897,7 +897,8 @@ PERL_CALLCONV void Perl_sv_setpvn_mg(pTHX_ SV *sv, const char *ptr, STRLEN len); PERL_CALLCONV void Perl_sv_setsv_mg(pTHX_ SV *dstr, SV *sstr); PERL_CALLCONV void Perl_sv_usepvn_mg(pTHX_ SV *sv, char *ptr, STRLEN len); PERL_CALLCONV MGVTBL* Perl_get_vtbl(pTHX_ int vtbl_id); -PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim); +PERL_CALLCONV char* Perl_pv_display(pTHX_ SV *dsv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim); +PERL_CALLCONV char* Perl_sv_uni_display(pTHX_ SV *dsv, SV *ssv, STRLEN pvlim); PERL_CALLCONV void Perl_dump_indent(pTHX_ I32 level, PerlIO *file, const char* pat, ...) #ifdef CHECK_FORMAT __attribute__((format(printf,pTHX_3,pTHX_4))) |