From 3d1a39c8be0d615d52d784b13d1b1dd635567f2a Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 20 Jan 2002 23:53:56 +0100
Subject: Re: [PATCH warnings, perldiag] document diagnostics Message-ID:
 <20020120225356.A12093@rafael>

p4raw-id: //depot/perl@14365
---
 warnings.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'warnings.pl')

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 {
-- 
cgit v1.2.1