Select Code to Download

void must_not_delete_cpp_object(SV* perl_obj, bool must_not_delete) {
    HV* hidden_hash;
    IV can_delete;
...
    sv_setiv(*can_delete_sv, can_delete);
    hv_store(hidden_hash, "_can_delete", 11, *can_delete_sv, 0);
}

Setting can_delete to 0 in 403291976 at test.pl line 136.
Can't coerce HASH to integer in subroutine entry at test.pl line 136.

HV* get_hidden_hash(SV* perl_obj) {
    SV* underlying_hash;
    MAGIC* mg;
...
    
    return hidden_hash;
}