From 9bb29b6866a80dfaa3765b219ca04942676a2fae Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 28 Sep 2012 14:47:05 -0700 Subject: 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. --- mg_vtable.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'mg_vtable.h') 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 }, -- cgit v1.2.1