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 (file)
--- 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