From 7889fe52c8bdedf274e4826ad460ef6c3606ca6a Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 9 Dec 2000 13:49:40 +0000
Subject: 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
---
 thrdvar.h | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'thrdvar.h')

diff --git a/thrdvar.h b/thrdvar.h
index 06cfe729a6..7f591d9c1a 100644
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -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 *)
-- 
cgit v1.2.1