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:
26be3db
)
Move PL_comppad nulling from do_clean_all to sv_clear
author
Dave Mitchell
<davem@fdisolutions.com>
Sat, 14 Apr 2007 21:53:17 +0000
(21:53 +0000)
committer
Dave Mitchell
<davem@fdisolutions.com>
Sat, 14 Apr 2007 21:53:17 +0000
(21:53 +0000)
p4raw-id: //depot/perl@30952
sv.c
patch
|
blob
|
blame
|
history
diff --git
a/sv.c
b/sv.c
index
4ce7071
..
43ab8bd
100644
(file)
--- a/
sv.c
+++ b/
sv.c
@@
-502,10
+502,6
@@
do_clean_all(pTHX_ SV *sv)
dVAR;
DEBUG_D((PerlIO_printf(Perl_debug_log, "Cleaning loops: SV at 0x%"UVxf"\n", PTR2UV(sv)) ));
SvFLAGS(sv) |= SVf_BREAK;
- if (PL_comppad == (AV*)sv) {
- PL_comppad = NULL;
- PL_curpad = NULL;
- }
SvREFCNT_dec(sv);
}
@@
-5124,6
+5120,10
@@
Perl_sv_clear(pTHX_ register SV *sv)
hv_undef((HV*)sv);
break;
case SVt_PVAV:
+ if (PL_comppad == (AV*)sv) {
+ PL_comppad = NULL;
+ PL_curpad = NULL;
+ }
av_undef((AV*)sv);
break;
case SVt_PVLV: