diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-09-14 15:06:36 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-09-14 23:17:39 +0000 |
| commit | d2f449dd43c68ee43aecff7e17640d02830ae584 (patch) | |
| tree | 91751714dee9ae7dfe38c3e963037d31b6020711 /sv.c | |
| parent | b113ac0e1f6062bab37eac93aedaebf7296e8029 (diff) | |
| download | perl-d2f449dd43c68ee43aecff7e17640d02830ae584.tar.gz | |
Re: perl@7078
Message-Id: <200009142306.TAA20082@leggy.zk3.dec.com>
p4raw-id: //depot/perl@7090
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2412,9 +2412,9 @@ Perl_sv_utf8_upgrade(pTHX_ register SV *sv) if (hibit) { STRLEN len = SvCUR(sv) + 1; /* Plus the \0 */ SvPVX(sv) = (char*)bytes_to_utf8((U8*)s, &len); - SvCUR(sv) = len - 1; + SvCUR(sv) = len; /* No longer know the real size. */ SvUTF8_on(sv); - Safefree(s); /* No longer using what was there before */ + Safefree(s); /* No longer using what was there before. */ } } |