diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-09 13:49:40 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-12-09 13:49:40 +0000 |
| commit | 7889fe52c8bdedf274e4826ad460ef6c3606ca6a (patch) | |
| tree | 3d161635f94f9d03924fbf79676ba0e4c27ae2ae /thrdvar.h | |
| parent | 553151e7a76c75a9f0ccbf6e0802e72fde2ec8f2 (diff) | |
| download | perl-7889fe52c8bdedf274e4826ad460ef6c3606ca6a.tar.gz | |
UTF8 output prework.
- Store $\ and $, as SVs so they can have SvUTF8 flag
- use do_print() rather than raw PerlIO_write() to print them.
p4raw-id: //depot/perlio@8049
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -84,8 +84,7 @@ PERLVAR(Tcurpm, PMOP *) /* what to do \ interps in REs from */ PERLVAR(Tnrs, SV *) PERLVAR(Trs, SV *) /* input record separator $/ */ PERLVAR(Tlast_in_gv, GV *) /* GV used in last <FH> */ -PERLVAR(Tofs, char *) /* output field separator $, */ -PERLVAR(Tofslen, STRLEN) +PERLVAR(Tofs_sv, SV *) /* output field separator $, */ PERLVAR(Tdefoutgv, GV *) /* default FH for output */ PERLVARI(Tchopset, char *, " \n-") /* $: */ PERLVAR(Tformtarget, SV *) |