diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2002-01-20 23:53:56 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-21 14:06:11 +0000 |
| commit | 3d1a39c8be0d615d52d784b13d1b1dd635567f2a (patch) | |
| tree | 39d8334a687528e9e733d4ad1eff8aa593a6a434 /lib/warnings.pm | |
| parent | b5de4a98103dfa430d42f468a291a4d863f78b13 (diff) | |
| download | perl-3d1a39c8be0d615d52d784b13d1b1dd635567f2a.tar.gz | |
Re: [PATCH warnings, perldiag] document diagnostics
Message-ID: <20020120225356.A12093@rafael>
p4raw-id: //depot/perl@14365
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 { |