Change 34489 by [EMAIL PROTECTED] on 2008/10/15 14:37:39
Integrate:
[ 34480]
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.8/perl/sv.c#391 integrate
Differences ...
==== //depot/maint-5.8/perl/sv.c#391 (text) ====
Index: perl/sv.c
--- perl/sv.c#390~34375~ 2008-09-16 05:41:16.000000000 -0700
+++ perl/sv.c 2008-10-15 07:37:39.000000000 -0700
@@ -4702,6 +4702,9 @@
cv_undef((CV*)sv);
goto freescalar;
case SVt_PVHV:
+ if (PL_last_swash_hv == (HV*)sv) {
+ PL_last_swash_hv = NULL;
+ }
hv_undef((HV*)sv);
break;
case SVt_PVAV:
End of Patch.
