From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 28 Jan 2002 23:08:27 +0000 (+0000)
Subject: Show also the debug and debugcolor as known pragmas.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bc4078bbbe6015a21aa6e05dd0cd361e1f6eb0ae;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;