diff options
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/warnings.pl b/warnings.pl index f2380d9dbb..c22d110eee 100644 --- a/warnings.pl +++ b/warnings.pl @@ -329,8 +329,9 @@ print WARN <<'EOM'; #define isWARNf_on(c,x) (IsSet((U8 *)(c + 1), 2*(x)+1)) #define DUP_WARNINGS(p) \ - (STRLEN*)(specialWARN(p) ? (p) \ - : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char)) + (specialWARN(p) ? (STRLEN*)(p) \ + : (STRLEN*)CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, \ + char)) #define ckWARN(w) Perl_ckwarn(aTHX_ packWARN(w)) #define ckWARN2(w1,w2) Perl_ckwarn(aTHX_ packWARN2(w1,w2)) |