only produce diagnostic warnings in regen/regcomp.pl when STDERR is a terminal

[perl5.git] / regen / mk_PL_charclass.pl

diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl
index d23970d..8a682dc 100644 (file)
--- a/regen/mk_PL_charclass.pl
+++ b/regen/mk_PL_charclass.pl
@@ -47,7 +47,7 @@ my @properties = qw(
     XDIGIT
     VERTSPACE
     IS_IN_SOME_FOLD
-    BACKSLASH_FOO_LBRACE_IS_META
+    MNEMONIC_CNTRL
 );
 
 # Read in the case fold mappings.
@@ -236,13 +236,9 @@ for my $ord (0..255) {
             $re = qr/\p{Is_Non_Final_Fold}/;
         } elsif ($name eq 'IS_IN_SOME_FOLD') {
             $re = qr/\p{_Perl_Any_Folds}/;
-        } elsif ($name eq 'BACKSLASH_FOO_LBRACE_IS_META') {
-
-            # This is true for FOO where FOO is the varying character in:
-            # \a{, \b{, \c{, ...
-            # and the sequence has non-literal meaning to Perl; so it is true
-            # for 'x' because \x{ is special, but not 'a' because \a{ isn't.
-            $re = qr/[gkNopPx]/;
+        } elsif ($name eq 'MNEMONIC_CNTRL') {
+            # These are the control characters that there are mnemonics for
+            $re = qr/[\a\b\e\f\n\r\t]/;
         } else {    # The remainder have the same name and values as Unicode
             $re = eval "qr/\\p{$name}/";
             use Carp;
@@ -268,7 +264,7 @@ END
 
 # Output the table using fairly short names for each char.
 foreach my $charset (get_supported_code_pages()) {
-    my @a2n = get_a2n($charset);
+    my @a2n = @{get_a2n($charset)};
     my @out;
 
     print $out_fh "\n" . get_conditional_compile_line_start($charset);