diff options
author | Nicholas Clark <nick@ccl4.org> | 2006-01-30 12:59:12 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2006-01-30 12:59:12 +0000 |
commit | de61663159118b735969bec9539d9251323990fa (patch) | |
tree | 08bacbcc1bfb10dc496f8287872d3c6c42abe2ec /ext | |
parent | 21c1191d96d28acb87f4479c4eef93ca5aef5405 (diff) | |
download | perl-de61663159118b735969bec9539d9251323990fa.tar.gz |
Use a union for storing the shared hash key reference count, rather
than messy pointer hacks.
p4raw-id: //depot/perl@27000
Diffstat (limited to 'ext')
-rw-r--r-- | ext/XS/APItest/APItest.xs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/XS/APItest/APItest.xs b/ext/XS/APItest/APItest.xs index c2a647800a..c8391c6bf2 100644 --- a/ext/XS/APItest/APItest.xs +++ b/ext/XS/APItest/APItest.xs @@ -86,7 +86,7 @@ test_freeent(freeent_function *f) { test_scalar = newSV(0); SvREFCNT_inc(test_scalar); - victim->hent_val = test_scalar; + HeVAL(victim) = test_scalar; /* Need this little game else we free the temps on the return stack. */ results[0] = SvREFCNT(test_scalar); |