This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
g++ -DPERL_GLOBAL_STRUCT_PRIVATE died on this.
authorJarkko Hietaniemi <jhi@iki.fi>
Sun, 22 Jun 2014 02:52:43 +0000 (22:52 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 22 Jun 2014 02:52:43 +0000 (22:52 -0400)
util.c

diff --git a/util.c b/util.c
index 4666233..3175f1f 100644 (file)
--- a/util.c
+++ b/util.c
@@ -3450,7 +3450,7 @@ Perl_get_vtbl(pTHX_ int vtbl_id)
     PERL_UNUSED_CONTEXT;
 
     return (vtbl_id < 0 || vtbl_id >= magic_vtable_max)
-       ? NULL : PL_magic_vtables + vtbl_id;
+       ? NULL : (MGVTBL*)PL_magic_vtables + vtbl_id;
 }
 
 I32