[perl.git] branch blead, updated. v5.17.5-159-g173c3f2

[Dave Mitchell]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/173c3f27245800af40395e54027fde2ff55724a5?hp=6ecb40c7533daddcbced3f122e55a5afc0e02a99>

- Log -----------------------------------------------------------------
commit 173c3f27245800af40395e54027fde2ff55724a5
Author: David Mitchell <da...@iabyn.com>
Date: Mon Nov 5 14:57:28 2012 +0000

fix NO_TAINT_SUPPORT on g++

A '&' got lost in the conversion
-----------------------------------------------------------------------

Summary of changes:
scope.c | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/scope.c b/scope.c
index e93517a..3240800 100644
--- a/scope.c
+++ b/scope.c
@@ -818,7 +818,7 @@ Perl_leave_scope(pTHX_ I32 base)
ptr = SSPOPPTR;
*(bool*)ptr = cBOOL(uv >> 8);
#if !NO_TAINT_SUPPORT
- if (ptr == TAINT_get) {
+ if (ptr == &(TAINT_get)) {
/* If we don't update <was>, to reflect what was saved on the
* stack for PL_tainted, then we will overwrite this attempt to
* restore it when we exit this routine. Note that this won't

--
Perl5 Master Repository