From feee6ba43ca4d3608f6eff3d7f46fe8197d73e68 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 31 May 2000 21:45:34 +0000
Subject: [PATCH] Single-quoted utf8 patch from Simon Cozens.

p4raw-id: //depot/cfgperl@6176
---
 toke.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/toke.c b/toke.c
index 99c993e..be21c93 100644
--- a/toke.c
+++ b/toke.c
@@ -981,6 +981,8 @@ S_sublex_start(pTHX)
 
 	    p = SvPV(sv, len);
 	    nsv = newSVpvn(p, len);
+            if (SvUTF8(sv))
+               SvUTF8_on(nsv);
 	    SvREFCNT_dec(sv);
 	    sv = nsv;
 	} 
-- 
2.7.4