This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [PATCH warnings, perldiag] document diagnostics
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 20 Jan 2002 22:53:56 +0000 (23:53 +0100)
committerJarkko Hietaniemi <jhi@iki.fi>
Mon, 21 Jan 2002 14:06:11 +0000 (14:06 +0000)
Message-ID: <20020120225356.A12093@rafael>

p4raw-id: //depot/perl@14365

lib/warnings.pm
pod/perldiag.pod
t/lib/warnings/2use
t/lib/warnings/9enabled
warnings.pl

index 6b46e35..e579a27 100644 (file)
@@ -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 {
index c612b9b..7ea6e85 100644 (file)
@@ -3671,6 +3671,15 @@ iterating over it, and someone else stuck a message in the stream of
 data Perl expected.  Someone's very confused, or perhaps trying to
 subvert Perl's population of %ENV for nefarious purposes.
 
+=item Unknown warnings category '%s'
+
+(F) An error issued by the C<warnings> pragma. You specified a warnings
+category that is unknown to perl at this point.
+
+Note that if you want to enable a warnings category registered by a module
+(e.g. C<use warnings 'File::Find'>), you must have imported this module
+first.
+
 =item unmatched [ in regex; marked by <-- HERE in m/%s/
 
 (F) The brackets around a character class must match. If you wish to
index e25d43a..b700ef7 100644 (file)
@@ -8,7 +8,7 @@ __END__
 #  check illegal category is caught
 use warnings 'this-should-never-be-a-warning-category' ;
 EXPECT
-unknown warnings category 'this-should-never-be-a-warning-category' at - line 3
+Unknown warnings category 'this-should-never-be-a-warning-category' at - line 3
 BEGIN failed--compilation aborted at - line 3.
 ########
 
index c3f2e39..fdce8cd 100755 (executable)
@@ -332,7 +332,7 @@ eval { warnings::warn("fred", "joe") } ;
 print $@ ;
 EXPECT
 Usage: warnings::warn([category,] 'message') at - line 4
-unknown warnings category 'fred' at - line 6
+Unknown warnings category 'fred' at - line 6
 ########
 
 # check warnings::warnif
@@ -343,7 +343,7 @@ eval { warnings::warnif("fred", "joe") } ;
 print $@ ;
 EXPECT
 Usage: warnings::warnif([category,] 'message') at - line 4
-unknown warnings category 'fred' at - line 6
+Unknown warnings category 'fred' at - line 6
 ########
 
 --FILE-- abc.pm
index e317b0a..e5ac703 100644 (file)
@@ -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 {