diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-25 11:01:49 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-01-25 11:01:49 +0000 |
| commit | eb1102fcca2230364ceadea29bd8e87ee51b15fa (patch) | |
| tree | bbe40957b80489b669b86133adb740b5d811cf73 /lib/warnings.pm | |
| parent | 3ed9f8f7de3dfc6ca29c4acc02b797c9dd51d971 (diff) | |
| download | perl-eb1102fcca2230364ceadea29bd8e87ee51b15fa.tar.gz | |
Integrate mainline
All but ../lib/Unicode/UCD.t pass.
p4raw-id: //depot/perlio@14412
Diffstat (limited to 'lib/warnings.pm')
| -rw-r--r-- | lib/warnings.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/warnings.pm b/lib/warnings.pm index 6b46e35729..e579a2716e 100644 --- a/lib/warnings.pm +++ b/lib/warnings.pm @@ -291,7 +291,7 @@ sub bits { $mask |= $DeadBits{$word} if $fatal ; } else - { croak("unknown warnings category '$word'")} + { croak("Unknown warnings category '$word'")} } return $mask ; @@ -328,12 +328,12 @@ sub __chk $category = shift ; if (ref $category) { croak ("not an object") - if $category !~ /^([^=]+)=/ ;+ + if $category !~ /^([^=]+)=/ ; $category = $1 ; $isobj = 1 ; } $offset = $Offsets{$category}; - croak("unknown warnings category '$category'") + croak("Unknown warnings category '$category'") unless defined $offset; } else { |