blob: 5b65557c191127084edf20057cb8218aa581a700 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
From 8eb3ec51a58dd02334118d8f0aa1bebb5704d15c Mon Sep 17 00:00:00 2001
From: Father Chrysostomos via RT <bug-Tk@rt.cpan.org>
Date: Mon, 6 Aug 2012 17:42:14 -0400
Subject: [PATCH] Fix compilation under threaded bleadperl
Ticket <URL: https://rt.cpan.org/Ticket/Display.html?id=78824 >
CopSTASHPV is no longer an lvalue under threads. (It never was under non-threaded builds.)
---
tkGlue.c | 6 +-----
1 file changed, 1 insertion(+), 5 deletions(-)
diff --git a/tkGlue.c b/tkGlue.c
index 1b7c025..9079302 100644
--- a/tkGlue.c
+++ b/tkGlue.c
@@ -4154,11 +4154,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:
--
1.8.2.3
|