This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5e661f6
)
We may not even have a list of slabs when Perl_Slab_Free is called.
author
Nicholas Clark
<nick@ccl4.org>
Mon, 2 Apr 2007 21:27:26 +0000
(21:27 +0000)
committer
Nicholas Clark
<nick@ccl4.org>
Mon, 2 Apr 2007 21:27:26 +0000
(21:27 +0000)
p4raw-id: //depot/perl@30835
op.c
patch
|
blob
|
blame
|
history
diff --git
a/op.c
b/op.c
index
47901c1
..
1f9cb8f
100644
(file)
--- a/
op.c
+++ b/
op.c
@@
-235,10
+235,9
@@
Perl_Slab_Free(pTHX_ void *op)
# endif
#ifdef PERL_DEBUG_READONLY_OPS
+ U32 count = PL_slab_count;
/* Need to remove this slab from our list of slabs */
- {
- U32 count = PL_slab_count;
-
+ if (count) {
while (count--) {
if (PL_slabs[count] == slab) {
/* Found it. Move the entry at the end to overwrite it. */