Change 14483 by jhi@alpha on 2002/01/28 23:08:27
Show also the debug and debugcolor as known pragmas.
Affected files ...
.... //depot/perl/ext/re/re.pm#16 edit
Differences ...
==== //depot/perl/ext/re/re.pm#16 (text) ====
Index: perl/ext/re/re.pm
--- perl/ext/re/re.pm.~1~ Mon Jan 28 16:15:05 2002
+++ perl/ext/re/re.pm Mon Jan 28 16:15:05 2002
@@ -115,7 +115,7 @@
$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;
End of Patch.
