Change 14365 by jhi@alpha on 2002/01/21 14:06:11
Subject: Re: [PATCH warnings, perldiag] document diagnostics
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Sun, 20 Jan 2002 22:53:56 +0100
Message-ID: <20020120225356.A12093@rafael>
Affected files ...
.... //depot/perl/lib/warnings.pm#16 edit
.... //depot/perl/pod/perldiag.pod#265 edit
.... //depot/perl/t/lib/warnings/2use#2 edit
.... //depot/perl/t/lib/warnings/9enabled#3 edit
.... //depot/perl/warnings.h#14 edit
.... //depot/perl/warnings.pl#20 edit
Differences ...
==== //depot/perl/lib/warnings.pm#16 (text+w) ====
Index: perl/lib/warnings.pm
--- perl/lib/warnings.pm.~1~ Mon Jan 21 07:15:05 2002
+++ perl/lib/warnings.pm Mon Jan 21 07:15:05 2002
@@ -291,7 +291,7 @@
$mask |= $DeadBits{$word} if $fatal ;
}
else
- { croak("unknown warnings category '$word'")}
+ { croak("Unknown warnings category '$word'")}
}
return $mask ;
@@ -328,12 +328,12 @@
$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 {
==== //depot/perl/pod/perldiag.pod#265 (text) ====
Index: perl/pod/perldiag.pod
--- perl/pod/perldiag.pod.~1~ Mon Jan 21 07:15:05 2002
+++ perl/pod/perldiag.pod Mon Jan 21 07:15:05 2002
@@ -3671,6 +3671,15 @@
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
==== //depot/perl/t/lib/warnings/2use#2 (text) ====
Index: perl/t/lib/warnings/2use
--- perl/t/lib/warnings/2use.~1~ Mon Jan 21 07:15:05 2002
+++ perl/t/lib/warnings/2use Mon Jan 21 07:15:05 2002
@@ -8,7 +8,7 @@
# 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.
########
==== //depot/perl/t/lib/warnings/9enabled#3 (xtext) ====
Index: perl/t/lib/warnings/9enabled
--- perl/t/lib/warnings/9enabled.~1~ Mon Jan 21 07:15:05 2002
+++ perl/t/lib/warnings/9enabled Mon Jan 21 07:15:05 2002
@@ -332,7 +332,7 @@
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 @@
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
==== //depot/perl/warnings.h#14 (text+w) ====
==== //depot/perl/warnings.pl#20 (text) ====
Index: perl/warnings.pl
--- perl/warnings.pl.~1~ Mon Jan 21 07:15:05 2002
+++ perl/warnings.pl Mon Jan 21 07:15:05 2002
@@ -486,7 +486,7 @@
$mask |= $DeadBits{$word} if $fatal ;
}
else
- { croak("unknown warnings category '$word'")}
+ { croak("Unknown warnings category '$word'")}
}
return $mask ;
@@ -523,12 +523,12 @@
$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 {
End of Patch.
