Change 30260 by [EMAIL PROTECTED] on 2007/02/13 17:34:53
The hash lookup in dMY_CXT_SV has been assuming a string constant
because it was using MY_CXT_KEY, sizeof(MY_CXT_KEY) - 1.
So enforce this assumption by switching from hv_fetch() to hv_fetchs().
Now buggy code won't compile.
Affected files ...
... //depot/maint-5.8/perl/perl.h#155 edit
Differences ...
==== //depot/maint-5.8/perl/perl.h#155 (text) ====
Index: perl/perl.h
--- perl/perl.h#154~30107~ 2007-02-03 10:08:37.000000000 -0800
+++ perl/perl.h 2007-02-13 09:34:53.000000000 -0800
@@ -5179,8 +5179,7 @@
/* Fetches the SV that keeps the per-interpreter data. */
#define dMY_CXT_SV \
- SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY, \
- sizeof(MY_CXT_KEY)-1, TRUE)
+ SV *my_cxt_sv = *hv_fetchs(PL_modglobal, MY_CXT_KEY, TRUE)
/* This declaration should be used within all functions that use the
* interpreter-local data. */
End of Patch.
