diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-08-02 02:37:17 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-02 13:34:36 +0000 |
| commit | 96c7109f147464908a4393d36c8da8315dbbafe4 (patch) | |
| tree | 6b78582f990491f9684d1402d19a505279a8d4ae /doop.c | |
| parent | 624590503086714d933ceb5a7947b31f6a66beb9 (diff) | |
| download | perl-96c7109f147464908a4393d36c8da8315dbbafe4.tar.gz | |
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
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -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 |