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:
09bb3e2
)
(Outcommented by #8369.)
author
Simon Cozens
<simon@netthink.co.uk>
Sat, 6 Jan 2001 11:48:40 +0000
(11:48 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Mon, 8 Jan 2001 14:47:10 +0000
(14:47 +0000)
Subject: Re: Perl BugID
20001205
.022 ---- save_delete
Message-ID: <
20010106114840
.A13227@deep-dark-truthful-mirror.perlhacker.org>
The save_delete() does need the Safefree.
p4raw-id: //depot/perl@8368
scope.c
patch
|
blob
|
blame
|
history
diff --git
a/scope.c
b/scope.c
index
27b522f
..
8a32017
100644
(file)
--- a/
scope.c
+++ b/
scope.c
@@
-852,6
+852,7
@@
Perl_leave_scope(pTHX_ I32 base)
ptr = SSPOPPTR;
(void)hv_delete(hv, (char*)ptr, (U32)SSPOPINT, G_DISCARD);
SvREFCNT_dec(hv);
+ Safefree(ptr);
break;
case SAVEt_DESTRUCTOR:
ptr = SSPOPPTR;