diff options
author | root <root@rshg054.dnsready.net> | 2013-05-27 00:29:16 -0700 |
---|---|---|
committer | root <root@rshg054.dnsready.net> | 2013-05-27 00:29:16 -0700 |
commit | b4ca83da72ffb5800852339f6efe5a59c16e9f94 (patch) | |
tree | 3ed149ced423d2629e0b3a71f0b1e2cf3f6ced70 /extra/perl-tk/0001-Fix-compilation-under-threaded-bleadperl.patch | |
parent | 99ee54f2484aadc464e997e54aa9c7ca7ecde198 (diff) |
Mon May 27 00:29:16 PDT 2013
Diffstat (limited to 'extra/perl-tk/0001-Fix-compilation-under-threaded-bleadperl.patch')
-rw-r--r-- | extra/perl-tk/0001-Fix-compilation-under-threaded-bleadperl.patch | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/extra/perl-tk/0001-Fix-compilation-under-threaded-bleadperl.patch b/extra/perl-tk/0001-Fix-compilation-under-threaded-bleadperl.patch new file mode 100644 index 000000000..5b65557c1 --- /dev/null +++ b/extra/perl-tk/0001-Fix-compilation-under-threaded-bleadperl.patch @@ -0,0 +1,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 + |