Warn when declaring lexsubs, not when enabling them

feature.pm has an ":all" tag.  So if we warn when lexical subs are
enabled, then ‘use feature ":all"’ will also warn.  That’s unkind.

Instead, warn when a lexical sub is declared via
‘my/our/state sub...’.

1 files changed, 2 insertions, 1 deletions

diff --git a/t/porting/diag.t b/t/porting/diag.t
index 4dcdf3b96f..a060268d04 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -78,7 +78,7 @@ my $cur_entry;
 open my $diagfh, "<", $pod
   or die "Can't open $pod: $!";
 
-my $category_re = qr/ [a-z0-9_]+?/;      # Note: requires an initial space
+my $category_re = qr/ [a-z0-9_:]+?/;    # Note: requires an initial space
 my $severity_re = qr/ . (?: \| . )* /x; # A severity is a single char, but can
                                         # be of the form 'S|P|W'
 my @same_descr;
@@ -296,6 +296,7 @@ sub check_file {
                  :                                '[PFX]';
     my $categories;
     if (defined $category) {
+      $category =~ s/__/::/g;
       $categories =
         join ", ",
               sort map {s/^WARN_//; lc $_} split /\s*[|,]\s*/, $category;