diff options
| author | Paul Marquess <paul.marquess@btinternet.com> | 2001-10-14 12:25:08 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-14 13:48:30 +0000 |
| commit | 08540116c788d6f1e67757a00e334989e55f0cfc (patch) | |
| tree | 0c3f283bba7cebb41bd1e33b458dacccf25cc837 /warnings.pl | |
| parent | 31022a5a11db70290d5b3f56cd0dc18a4dd805d8 (diff) | |
| download | perl-08540116c788d6f1e67757a00e334989e55f0cfc.tar.gz | |
Fix scoping problem with FATAL warnings
Message-ID: <AIEAJICLCBDNAAOLLOKLCEFDDCAA.Paul_Marquess@Yahoo.co.uk>
p4raw-id: //depot/perl@12434
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/warnings.pl b/warnings.pl index 3dc8200169..59033486f2 100644 --- a/warnings.pl +++ b/warnings.pl @@ -491,7 +491,7 @@ sub unimport { $mask |= $Bits{'all'} ; $mask |= $DeadBits{'all'} if vec($mask, $Offsets{'all'}+1, 1); } - ${^WARNING_BITS} = $mask & ~ (bits(@_ ? @_ : 'all') | $All) ; + ${^WARNING_BITS} = $mask & ~ (bits('FATAL' => (@_ ? @_ : 'all')) | $All) ; } sub __chk |