Author: pmichaud
Date: Mon Mar 31 09:03:33 2008
New Revision: 26665
Modified:
trunk/tools/util/pgegrep
Log:
[pge]:
* Missed a P6Regex --> Perl6Regex conversion in pgegrep.
Modified: trunk/tools/util/pgegrep
==============================================================================
--- trunk/tools/util/pgegrep (original)
+++ trunk/tools/util/pgegrep Mon Mar 31 09:03:33 2008
@@ -128,7 +128,7 @@
.local string rule
.local pmc p6rule_compile, matchsub
rule = shift argv
- p6rule_compile = compreg "PGE::P6Regex"
+ p6rule_compile = compreg "PGE::Perl6Regex"
matchsub = p6rule_compile(rule)
.If(null matchsub, {
printerr "Null matchsub, probably a syntax error\n"
@@ -221,7 +221,7 @@
.local pmc cntrlchar
$S0 = '<cntrl-[\t\r\n]>'
- $P0 = compreg "PGE::P6Regex"
+ $P0 = compreg "PGE::Perl6Regex"
cntrlchar = $P0($S0)
.For(, linelen, { line = readline handle .NL() linelen = length line
.NL() inc lineno }, {
