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.pl | |
| 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.pl')
| -rw-r--r-- | warnings.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/warnings.pl b/warnings.pl index e3c0403669..9967175635 100644 --- a/warnings.pl +++ b/warnings.pl @@ -325,8 +325,8 @@ print WARN <<'EOM'; #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 && \ |