diff options
author | Zefram <zefram@fysh.org> | 2017-12-16 07:12:48 +0000 |
---|---|---|
committer | Zefram <zefram@fysh.org> | 2017-12-16 07:12:48 +0000 |
commit | 7347ee5481c77d2fdb023e0a1c19943d039ecc86 (patch) | |
tree | 33070b53fbf3d2c5c3408c580e3026b9b4e9e1d5 /taint.c | |
parent | 64def2aeaeb63f92dadc6dfa33486c1d7b311963 (diff) | |
download | perl-7347ee5481c77d2fdb023e0a1c19943d039ecc86.tar.gz |
semicolon-friendly diagnostic control
New macros {GCC,CLANG}_DIAG_{IGNORE,RESTORE}_{DECL,STMT}, which take a
following semicolon. It is necessary to use the _DECL or _STMT version
as appropriate to the context. Fixes [perl #130726].
Diffstat (limited to 'taint.c')
-rw-r--r-- | taint.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -62,14 +62,14 @@ Perl_taint_proper(pTHX_ const char *f, const char *const s) /* XXX because taint_proper adds extra format args, we can't * get the caller to check properly; o we just silence the warning * and hope the callers aren't naughty */ - GCC_DIAG_IGNORE(-Wformat-nonliteral); + GCC_DIAG_IGNORE_STMT(-Wformat-nonliteral); if (PL_unsafe || TAINT_WARN_get) { Perl_ck_warner_d(aTHX_ packWARN(WARN_TAINT), f, s, ug); } else { Perl_croak(aTHX_ f, s, ug); } - GCC_DIAG_RESTORE; + GCC_DIAG_RESTORE_STMT; } } |