diff options
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 e317b0a48e..e5ac703492 100644 --- a/warnings.pl +++ b/warnings.pl @@ -486,7 +486,7 @@ sub bits { $mask |= $DeadBits{$word} if $fatal ; } else - { croak("unknown warnings category '$word'")} + { croak("Unknown warnings category '$word'")} } return $mask ; @@ -523,12 +523,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 { |