Change 34480 by [EMAIL PROTECTED] on 2008/10/15 07:33:31
Integrate:
[ 34479]
Yet another [ACGHS]V pointer in the interpreter structure that needs to
be reset if its SV is freed. (see change 22688 (30952)).
A real live bug found by Slaven and Andreas whilst smoking maint-5.8.x.
I guess that we should audit the interpreter structure for any others.
Affected files ...
... //depot/maint-5.10/perl/sv.c#27 integrate
Differences ...
==== //depot/maint-5.10/perl/sv.c#27 (text) ====
Index: perl/sv.c
--- perl/sv.c#26~34372~ 2008-09-16 02:55:12.000000000 -0700
+++ perl/sv.c 2008-10-15 00:33:31.000000000 -0700
@@ -5272,6 +5272,9 @@
cv_undef((CV*)sv);
goto freescalar;
case SVt_PVHV:
+ if (PL_last_swash_hv == (HV*)sv) {
+ PL_last_swash_hv = NULL;
+ }
Perl_hv_kill_backrefs(aTHX_ (HV*)sv);
hv_undef((HV*)sv);
break;
End of Patch.
