diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-03-19 00:14:31 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-18 22:17:25 +0000 |
| commit | d79a7a3d6c6ab340cac86730d02550f83fa03489 (patch) | |
| tree | cc455ffa3634f867efc0a5c66306324699809912 /utf8.c | |
| parent | 71cd87827fd732d789d5a6b92c62529ee114f179 (diff) | |
| download | perl-d79a7a3d6c6ab340cac86730d02550f83fa03489.tar.gz | |
B::perlstring and unicode
Message-ID: <20020318231431.A699@rafael>
p4raw-id: //depot/perl@15308
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1751,7 +1751,7 @@ Perl_pv_uni_display(pTHX_ SV *dsv, U8 *spv, STRLEN len, STRLEN pvlim, UV flags) case '\a': Perl_sv_catpvf(aTHX_ dsv, "\\a"); ok = TRUE; break; case '\\': - Perl_sv_catpvf(aTHX_ dsv, "\\" ); ok = TRUE; break; + Perl_sv_catpvf(aTHX_ dsv, "\\\\" ); ok = TRUE; break; default: break; } } |