This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
add SAVEFREECOPHH()
[perl5.git] / ext / XS-APItest / APItest.xs
index 945a890..386fda9 100644 (file)
@@ -2065,7 +2065,9 @@ test_cophh()
        check_ph(cophh_fetch_pvs(a, "foo_\xc2\x8c", 0));
        check_iv(cophh_fetch_pvs(a, "foo_\xd9\xa6", COPHH_KEY_UTF8), 666);
        check_ph(cophh_fetch_pvs(a, "foo_\xd9\xa6", 0));
-       cophh_free(a);
+       ENTER;
+       SAVEFREECOPHH(a);
+       LEAVE;
 #undef check_ph
 #undef check_iv
 #undef msvpvs