diff options
Diffstat (limited to 'sv.c')
-rw-r--r-- | sv.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -12008,9 +12008,8 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, SvNV_set(&PL_sv_yes, 1); ptr_table_store(PL_ptr_table, &proto_perl->Isv_yes, &PL_sv_yes); - /* dbargs array probably holds garbage; give the child a clean array */ - PL_dbargs = newAV(); - ptr_table_store(PL_ptr_table, proto_perl->Idbargs, PL_dbargs); + /* dbargs array probably holds garbage */ + PL_dbargs = NULL; /* create (a non-shared!) shared string table */ PL_strtab = newHV(); |