diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-10-06 07:19:39 +0000 |
| commit | e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8 (patch) | |
| tree | 2486134e928dceaecf5804e2e21da9bbf3065728 /warning.pl | |
| parent | 0a3e5ca21a6646f3abf4cafe2bcefb8a5b50aa83 (diff) | |
| download | perl-e24b16f93601a2fb49f1bbf6bab19c3bfe09c0e8.tar.gz | |
fix globals caught by change#1927; builds and tests on Solaris
p4raw-link: @1927 on //depot/perl: eb07465ebe1238598e948058857ec948c6697f86
p4raw-id: //depot/perl@1936
Diffstat (limited to 'warning.pl')
| -rw-r--r-- | warning.pl | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/warning.pl b/warning.pl index 497630de28..59dac2fcdd 100644 --- a/warning.pl +++ b/warning.pl @@ -143,47 +143,47 @@ print WARN <<'EOM' ; /* Part of the logic below assumes that WARN_NONE is NULL */ #define ckDEAD(x) \ - (curcop->cop_warnings != WARN_ALL && \ - curcop->cop_warnings != WARN_NONE && \ - IsSet(SvPVX(curcop->cop_warnings), 2*x+1)) + (PL_curcop->cop_warnings != WARN_ALL && \ + PL_curcop->cop_warnings != WARN_NONE && \ + IsSet(SvPVX(PL_curcop->cop_warnings), 2*x+1)) #define ckWARN(x) \ - ( (curcop->cop_warnings && \ - (curcop->cop_warnings == WARN_ALL || \ - IsSet(SvPVX(curcop->cop_warnings), 2*x) ) ) \ + ( (PL_curcop->cop_warnings && \ + (PL_curcop->cop_warnings == WARN_ALL || \ + IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) ) \ || (PL_dowarn & G_WARN_ON) ) #define ckWARN2(x,y) \ - ( (curcop->cop_warnings && \ - (curcop->cop_warnings == WARN_ALL || \ - IsSet(SvPVX(curcop->cop_warnings), 2*x) || \ - IsSet(SvPVX(curcop->cop_warnings), 2*y) ) ) \ + ( (PL_curcop->cop_warnings && \ + (PL_curcop->cop_warnings == WARN_ALL || \ + IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) || \ + IsSet(SvPVX(PL_curcop->cop_warnings), 2*y) ) ) \ || (PL_dowarn & G_WARN_ON) ) #else -#define ckDEAD(x) \ - (curcop->cop_warnings != WARN_ALL && \ - curcop->cop_warnings != WARN_NONE && \ - SvPVX(curcop->cop_warnings)[Off(2*x+1)] & Bit(2*x+1) ) +#define ckDEAD(x) \ + (PL_curcop->cop_warnings != WARN_ALL && \ + PL_curcop->cop_warnings != WARN_NONE && \ + SvPVX(PL_curcop->cop_warnings)[Off(2*x+1)] & Bit(2*x+1) ) -#define ckWARN(x) \ +#define ckWARN(x) \ ( (PL_dowarn & G_WARN_ON) || ( (PL_dowarn & G_WARN_DISABLE) && \ - curcop->cop_warnings && \ - ( curcop->cop_warnings == WARN_ALL || \ - SvPVX(curcop->cop_warnings)[Off(2*x)] & Bit(2*x) ) ) ) + PL_curcop->cop_warnings && \ + ( PL_curcop->cop_warnings == WARN_ALL || \ + SvPVX(PL_curcop->cop_warnings)[Off(2*x)] & Bit(2*x) ) ) ) -#define ckWARN2(x,y) \ +#define ckWARN2(x,y) \ ( (PL_dowarn & G_WARN_ON) || ( (PL_dowarn & G_WARN_DISABLE) && \ - curcop->cop_warnings && \ - ( curcop->cop_warnings == WARN_ALL || \ - SvPVX(curcop->cop_warnings)[Off(2*x)] & Bit(2*x) || \ - SvPVX(curcop->cop_warnings)[Off(2*y)] & Bit(2*y) ) ) ) + PL_curcop->cop_warnings && \ + ( PL_curcop->cop_warnings == WARN_ALL || \ + SvPVX(PL_curcop->cop_warnings)[Off(2*x)] & Bit(2*x) || \ + SvPVX(PL_curcop->cop_warnings)[Off(2*y)] & Bit(2*y) ) ) ) #endif #define WARN_NONE NULL -#define WARN_ALL (&sv_yes) +#define WARN_ALL (&PL_sv_yes) EOM |