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 /warnings.pl | |
| 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 '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 { |