This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
sizeof * and sizeof ** not necessarily the same.
authorJarkko Hietaniemi <jhi@iki.fi>
Mon, 22 Jun 2015 23:05:51 +0000 (19:05 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 27 Jun 2015 03:09:40 +0000 (23:09 -0400)
Coverity CID 104792.

sv.c

diff --git a/sv.c b/sv.c
index b7fb41d..70a170a 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -13264,7 +13264,7 @@ Perl_ptr_table_clear(pTHX_ PTR_TBL_t *const tbl)
     if (tbl && tbl->tbl_items) {
        struct ptr_tbl_arena *arena = tbl->tbl_arena;
 
-       Zero(tbl->tbl_ary, tbl->tbl_max + 1, struct ptr_tbl_ent **);
+       Zero(tbl->tbl_ary, tbl->tbl_max + 1, struct ptr_tbl_ent *);
 
        while (arena) {
            struct ptr_tbl_arena *next = arena->next;