diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-09-28 14:47:05 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-01 12:51:56 -0700 |
| commit | 9bb29b6866a80dfaa3765b219ca04942676a2fae (patch) | |
| tree | b7502edc78b227328733cfcbf76488e566301e64 /mg_vtable.h | |
| parent | 158f7f72a5e9f438a9abd9881df85a8999adcb38 (diff) | |
| download | perl-9bb29b6866a80dfaa3765b219ca04942676a2fae.tar.gz | |
Remove length magic on scalars
It is not possible to know how to interpret the returned length
without accessing the UTF8 flag, which is not reliable until
the SV has been stringified, which requires get-magic. So length
magic has not made senses since utf8 support was added. I have
removed all uses of length magic from the core, so this is now
dead code.
Diffstat (limited to 'mg_vtable.h')
| -rw-r--r-- | mg_vtable.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/mg_vtable.h b/mg_vtable.h index 8526fc5ffd..316c555c5b 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -177,7 +177,7 @@ EXT_MGVTBL PL_magic_vtables[magic_vtable_max] = { { 0, 0, 0, 0, 0, 0, 0, 0 }, #endif { Perl_magic_getsubstr, Perl_magic_setsubstr, 0, 0, 0, 0, 0, 0 }, - { Perl_magic_get, Perl_magic_set, Perl_magic_len, 0, 0, 0, 0, 0 }, + { Perl_magic_get, Perl_magic_set, 0, 0, 0, 0, 0, 0 }, { Perl_magic_gettaint, Perl_magic_settaint, 0, 0, 0, 0, 0, 0 }, { 0, Perl_magic_setutf8, 0, 0, 0, 0, 0, 0 }, { Perl_magic_getuvar, Perl_magic_setuvar, 0, 0, 0, 0, 0, 0 }, |