diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-07 16:09:54 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-02-07 16:09:54 +0000 |
| commit | 6a8181172ab18fb057dd6fb202936705ede77746 (patch) | |
| tree | 3b496baf200a0745d01c384d216a2c08243f271b /warnings.pl | |
| parent | e9ff6d2717dce18093d60b3839463976bb523752 (diff) | |
| download | perl-6a8181172ab18fb057dd6fb202936705ede77746.tar.gz | |
${^Warnings} renamed to ${^WARNING_BITS}
p4raw-id: //depot/perl@5025
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/warnings.pl b/warnings.pl index 8d3450b4cd..9d571038e2 100644 --- a/warnings.pl +++ b/warnings.pl @@ -316,12 +316,12 @@ sub bits { sub import { shift; - ${^Warnings} |= bits(@_ ? @_ : 'all') ; + ${^WARNING_BITS} |= bits(@_ ? @_ : 'all') ; } sub unimport { shift; - ${^Warnings} &= ~ bits(@_ ? @_ : 'all') ; + ${^WARNING_BITS} &= ~ bits(@_ ? @_ : 'all') ; } sub enabled @@ -329,7 +329,7 @@ sub enabled my $string = shift ; return 1 - if $bits{$string} && ${^Warnings} & $bits{$string} ; + if $bits{$string} && ${^WARNING_BITS} & $bits{$string} ; return 0 ; } |