mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 16:39:36 +00:00
Add a new 'experimental::snail_in_signatures' warning category
This commit is contained in:
Paul "LeoNerd" Evans
Paul Evans
parent
57a97e26a5
commit
1c547c3e2c
@ -113,9 +113,10 @@ our %Offsets = (
|
||||
'experimental::try' => 146,
|
||||
|
||||
# Warnings Categories added in Perl 5.035
|
||||
'experimental::builtin' => 148,
|
||||
'experimental::defer' => 150,
|
||||
'experimental::for_list' => 152,
|
||||
'experimental::args_array_with_signatures'=> 148,
|
||||
'experimental::builtin' => 150,
|
||||
'experimental::defer' => 152,
|
||||
'experimental::for_list' => 154,
|
||||
);
|
||||
|
||||
our %Bits = (
|
||||
@ -129,14 +130,15 @@ our %Bits = (
|
||||
'digit' => "\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
|
||||
'exec' => "\x00\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
|
||||
'exiting' => "\x40\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
|
||||
'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x51\x05\x54\x54\x55\x01", # [51..56,58..61,65..67,69..76]
|
||||
'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x55\x51\x05\x54\x54\x55\x05", # [51..56,58..61,65..67,69..77]
|
||||
'experimental::alpha_assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00", # [66]
|
||||
'experimental::args_array_with_signatures'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [74]
|
||||
'experimental::bitwise' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00\x00\x00\x00\x00", # [58]
|
||||
'experimental::builtin' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x10\x00", # [74]
|
||||
'experimental::builtin' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [75]
|
||||
'experimental::const_attr' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00", # [59]
|
||||
'experimental::declared_refs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04\x00\x00\x00", # [65]
|
||||
'experimental::defer' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00", # [75]
|
||||
'experimental::for_list' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [76]
|
||||
'experimental::defer' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01", # [76]
|
||||
'experimental::for_list' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x04", # [77]
|
||||
'experimental::isa' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00", # [72]
|
||||
'experimental::lexical_subs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x00\x00\x00\x00\x00", # [52]
|
||||
'experimental::postderef' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x40\x00\x00\x00\x00\x00\x00", # [55]
|
||||
@ -209,14 +211,15 @@ our %DeadBits = (
|
||||
'digit' => "\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [31]
|
||||
'exec' => "\x00\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [7]
|
||||
'exiting' => "\x80\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00", # [3]
|
||||
'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\xa2\x0a\xa8\xa8\xaa\x02", # [51..56,58..61,65..67,69..76]
|
||||
'experimental' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\xaa\xa2\x0a\xa8\xa8\xaa\x0a", # [51..56,58..61,65..67,69..77]
|
||||
'experimental::alpha_assertions' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00", # [66]
|
||||
'experimental::args_array_with_signatures'=> "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [74]
|
||||
'experimental::bitwise' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00\x00\x00\x00\x00", # [58]
|
||||
'experimental::builtin' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x20\x00", # [74]
|
||||
'experimental::builtin' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [75]
|
||||
'experimental::const_attr' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00", # [59]
|
||||
'experimental::declared_refs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08\x00\x00\x00", # [65]
|
||||
'experimental::defer' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00", # [75]
|
||||
'experimental::for_list' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [76]
|
||||
'experimental::defer' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02", # [76]
|
||||
'experimental::for_list' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x08", # [77]
|
||||
'experimental::isa' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00", # [72]
|
||||
'experimental::lexical_subs' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x02\x00\x00\x00\x00\x00\x00", # [52]
|
||||
'experimental::postderef' => "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x80\x00\x00\x00\x00\x00\x00", # [55]
|
||||
@ -280,8 +283,8 @@ our %DeadBits = (
|
||||
|
||||
# These are used by various things, including our own tests
|
||||
our $NONE = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
|
||||
our $DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x15\x54\x54\x55\x01"; # [2,4,22,23,25,52..56,58..62,65..67,69..76]
|
||||
our $LAST_BIT = 154 ;
|
||||
our $DEFAULT = "\x10\x01\x00\x00\x00\x50\x04\x00\x00\x00\x00\x00\x00\x55\x51\x15\x54\x54\x55\x05"; # [2,4,22,23,25,52..56,58..62,65..67,69..77]
|
||||
our $LAST_BIT = 156 ;
|
||||
our $BYTES = 20 ;
|
||||
|
||||
sub Croaker
|
||||
@ -881,6 +884,8 @@ The current hierarchy is:
|
||||
| |
|
||||
| +- experimental::alpha_assertions
|
||||
| |
|
||||
| +- experimental::args_array_with_signatures
|
||||
| |
|
||||
| +- experimental::bitwise
|
||||
| |
|
||||
| +- experimental::builtin
|
||||
|
||||
@ -125,6 +125,8 @@ my $tree = {
|
||||
[ 5.035, DEFAULT_ON ],
|
||||
'experimental::builtin' =>
|
||||
[ 5.035, DEFAULT_ON ],
|
||||
'experimental::args_array_with_signatures' =>
|
||||
[ 5.035, DEFAULT_ON],
|
||||
}],
|
||||
|
||||
'missing' => [ 5.021, DEFAULT_OFF],
|
||||
|
||||
@ -136,9 +136,10 @@
|
||||
|
||||
/* Warnings Categories added in Perl 5.035 */
|
||||
|
||||
#define WARN_EXPERIMENTAL__BUILTIN 74
|
||||
#define WARN_EXPERIMENTAL__DEFER 75
|
||||
#define WARN_EXPERIMENTAL__FOR_LIST 76
|
||||
#define WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES 74
|
||||
#define WARN_EXPERIMENTAL__BUILTIN 75
|
||||
#define WARN_EXPERIMENTAL__DEFER 76
|
||||
#define WARN_EXPERIMENTAL__FOR_LIST 77
|
||||
#define WARNsize 20
|
||||
#define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125"
|
||||
#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
|
||||
@ -322,6 +323,7 @@ category parameters passed.
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__VLB
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__ISA
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__TRY
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__BUILTIN
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__DEFER
|
||||
=for apidoc Amnh||WARN_EXPERIMENTAL__FOR_LIST
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user