diff options
| author | Zefram <zefram@fysh.org> | 2010-10-28 22:01:11 +0100 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-28 17:51:44 -0700 |
| commit | 3987a177937fb7957caa003cdf4c6dee1bb97f71 (patch) | |
| tree | ad6d7e97944a83eb44ed9b79043c206c3dd1c585 /ext/XS-APItest/APItest.xs | |
| parent | 691135482762ce9dc9654f3848979dfe881cceb5 (diff) | |
| download | perl-3987a177937fb7957caa003cdf4c6dee1bb97f71.tar.gz | |
add SAVEFREECOPHH()
Add the facility for the save stack to free (decrement the refcount of)
a COPHH*.
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 945a89030e..386fda9ab6 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -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 |