Subject: | Fix compilation under threaded bleadperl |
CopSTASHPV is no longer an lvalue under threads. (It never was under non-threaded builds.)
See attachment.
Subject: | open_fKRBhHDm.txt |
diff -rup Tk-804.030-s6AXtr-orig/tkGlue.c Tk-804.030-s6AXtr/tkGlue.c
--- Tk-804.030-s6AXtr-orig/tkGlue.c 2010-05-29 02:58:04.000000000 -0700
+++ Tk-804.030-s6AXtr/tkGlue.c 2012-08-06 14:40:56.000000000 -0700
@@ -4194,11 +4194,7 @@ int type;
SV *x = NULL;
int prefix = '?';
name = SvPV(sv,na);
-#ifdef USE_ITHREADS
- CopSTASHPV(PL_curcop) = NULL;
-#else
- CopSTASH(PL_curcop) = NULL;
-#endif
+ CopSTASH_set(PL_curcop, NULL);
switch (type)
{
case TK_CONFIG_SCALARVAR: