diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-08-30 22:08:43 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-08-30 22:09:05 -0700 |
| commit | 864329c3a6aadf41283abada71c1b343e164bad3 (patch) | |
| tree | 2a3773a72bde927a360555f3ff9b2d670ea30247 /embed.h | |
| parent | 7d1328bb7c26d556809b1aed184cec377b18f20c (diff) | |
| download | perl-864329c3a6aadf41283abada71c1b343e164bad3.tar.gz | |
Stop substr($utf8) from calling get-magic twice
By calling get-magic twice, it could cause its string buffer to be
reallocated, resulting in incorrect and random return values.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -1212,6 +1212,7 @@ #define sv_clean_objs() Perl_sv_clean_objs(aTHX) #define sv_del_backref(a,b) Perl_sv_del_backref(aTHX_ a,b) #define sv_free_arenas() Perl_sv_free_arenas(aTHX) +#define sv_len_utf8_nomg(a) Perl_sv_len_utf8_nomg(aTHX_ a) #define sv_ref(a,b,c) Perl_sv_ref(aTHX_ a,b,c) #define sv_sethek(a,b) Perl_sv_sethek(aTHX_ a,b) #ifndef PERL_IMPLICIT_CONTEXT |