diff options
| author | David Mitchell <davem@iabyn.com> | 2013-05-09 14:23:38 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-05-09 14:34:00 +0100 |
| commit | 9a9b5ec9e94e1e207c265a6acd160fc49bca06fa (patch) | |
| tree | 6d172543e9d62b5ce6dd790ada6130c3bdeae0c7 /scope.c | |
| parent | 3231f5793f6a3d7ee78eb1d68feb05c064b33315 (diff) | |
| download | perl-9a9b5ec9e94e1e207c265a6acd160fc49bca06fa.tar.gz | |
silence warnings under NO_TAINT_SUPPORT
The are lots of places where local vars aren't used when compiled
with NO_TAINT_SUPPORT.
Diffstat (limited to 'scope.c')
| -rw-r--r-- | scope.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -916,7 +916,9 @@ Perl_leave_scope(pTHX_ I32 base) break; case SAVEt_BOOL: /* bool reference */ *(bool*)ARG0_PTR = cBOOL(uv >> 8); -#if !NO_TAINT_SUPPORT +#ifdef NO_TAINT_SUPPORT + PERL_UNUSED_VAR(was); +#else if (ARG0_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 |