diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-07 09:23:35 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-08-07 09:23:35 +0000 |
| commit | 83373517b1ac7c8a6e168342975168bec47c9f33 (patch) | |
| tree | bea29de9745ae4c1a383a7fdeca71e82c00d9850 | |
| parent | 6f422a3fee985a1fe85f8f8415d89dcebbee6a53 (diff) | |
| download | perl-83373517b1ac7c8a6e168342975168bec47c9f33.tar.gz | |
Restore modification in warnings.h from change 28662 by backporting it
to warnings.pl
p4raw-id: //depot/perl@28666
| -rw-r--r-- | warnings.h | 4 | ||||
| -rw-r--r-- | warnings.pl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/warnings.h b/warnings.h index 423a21a4c2..9c84c25a72 100644 --- a/warnings.h +++ b/warnings.h @@ -92,8 +92,8 @@ #define isWARNf_on(c,x) (IsSet((U8 *)(c + 1), 2*(x)+1)) #define DUP_WARNINGS(p) \ - specialWARN(p) ? (p) \ - : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char) + (STRLEN*)(specialWARN(p) ? (p) \ + : 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)) diff --git a/warnings.pl b/warnings.pl index 0cb5bbd660..8d8913430f 100644 --- a/warnings.pl +++ b/warnings.pl @@ -332,8 +332,8 @@ print WARN <<'EOM'; #define isWARNf_on(c,x) (IsSet((U8 *)(c + 1), 2*(x)+1)) #define DUP_WARNINGS(p) \ - specialWARN(p) ? (p) \ - : CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, char) + (STRLEN*)(specialWARN(p) ? (p) \ + : 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)) |