Show also the debug and debugcolor as known pragmas.

p4raw-id: //depot/perl@14483

diff --git a/ext/re/re.pm b/ext/re/re.pm
index 98e89ce..95e2540 100644 (file)
--- a/ext/re/re.pm
+++ b/ext/re/re.pm
@@ -115,7 +115,7 @@ sub bits {
          $bits |= $bitmask{$s};
       } else {
          require Carp;
-         Carp::carp("Unknown \"re\" subpragma '$s' (known ones are: @{[join(', ', map {qq('$_')} sort keys %bitmask)]})");
+         Carp::carp("Unknown \"re\" subpragma '$s' (known ones are: @{[join(', ', map {qq('$_')} 'debug', 'debugcolor', sort keys %bitmask)]})");
       }
     }
     $bits;