From: Simon Cozens <simon@netthink.co.uk>
Date: Wed, 2 Aug 2000 02:37:17 +0000 (+0000)
Subject: The tr utf8 patching continues.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=96c7109f147464908a4393d36c8da8315dbbafe4;p=p5sagit%2Fp5-mst-13.2.git

The tr utf8 patching continues.

Subject: Re: #6469, too many tests claimed in require.t
Message-ID: <slrn8of2at.81o.simon@justanother.perlhacker.org>

(the logic of the test was the wrong way round in the patch)

p4raw-id: //depot/perl@6491
---

diff --git a/doop.c b/doop.c
index 0139911..ba8a7e5 100644
--- a/doop.c
+++ b/doop.c
@@ -23,12 +23,14 @@
 
 #define HALF_UTF8_UPGRADE(start,end) \
     STMT_START {				\
+      if ((start)<(end)) {			\
 	U8* NeWsTr;				\
 	STRLEN LeN = (end) - (start);		\
 	NeWsTr = bytes_to_utf8(start, &LeN);	\
 	Safefree(start);			\
 	(start) = NeWsTr;			\
 	(end) = (start) + LeN;			\
+      }						\
     } STMT_END
 
 STATIC I32