diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-05-17 13:17:01 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-20 09:26:01 +0000 |
| commit | 95a20fc0f418f9e1e0d100fe94506ad0a61144e9 (patch) | |
| tree | e003b524a641f253eac0b309363e37f22067ab09 /warnings.h | |
| parent | 0dbb1585a715e56312e579a5f0e7f82241b38352 (diff) | |
| download | perl-95a20fc0f418f9e1e0d100fe94506ad0a61144e9.tar.gz | |
SvPVX_const() - Patch #1
Message-ID: <20050517231701.GA1394@mccoy.peters.homeunix.org>
p4raw-id: //depot/perl@24509
Diffstat (limited to 'warnings.h')
| -rw-r--r-- | warnings.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/warnings.h b/warnings.h index 178d1cf25c..09aedb0613 100644 --- a/warnings.h +++ b/warnings.h @@ -85,8 +85,8 @@ #define isLEXWARN_on (PL_curcop->cop_warnings != pWARN_STD) #define isLEXWARN_off (PL_curcop->cop_warnings == pWARN_STD) #define isWARN_ONCE (PL_dowarn & (G_WARN_ON|G_WARN_ONCE)) -#define isWARN_on(c,x) (IsSet(SvPVX(c), 2*(x))) -#define isWARNf_on(c,x) (IsSet(SvPVX(c), 2*(x)+1)) +#define isWARN_on(c,x) (IsSet(SvPVX_const(c), 2*(x))) +#define isWARNf_on(c,x) (IsSet(SvPVX_const(c), 2*(x)+1)) #define ckWARN(x) \ ( (isLEXWARN_on && PL_curcop->cop_warnings != pWARN_NONE && \ |