[svn:parrot] r43120 - trunk/tools/util

[dukeleto at svn.parrot.org]

Author: dukeleto
Date: Thu Dec 17 05:00:02 2009
New Revision: 43120
URL: https://trac.parrot.org/parrot/changeset/43120

Log:
[cage] Fix pgegrep, which was merely an innocent bystander in the Great Namespace Wars

Modified:
   trunk/tools/util/pgegrep

Modified: trunk/tools/util/pgegrep
==============================================================================
--- trunk/tools/util/pgegrep	Thu Dec 17 04:58:36 2009	(r43119)
+++ trunk/tools/util/pgegrep	Thu Dec 17 05:00:02 2009	(r43120)
@@ -88,7 +88,7 @@
 	load_bytecode 'Getopt/Obj.pbc'
 	load_bytecode 'PGE.pbc'
 	.local pmc getopts
-	getopts = new [ 'Getopt';'Obj' ]
+	getopts = new 'Getopt::Obj'
 	getopts.'notOptStop'(1)
 	push getopts, 'with-filename|H'
 	push getopts, 'files-with-matches|l'
@@ -207,7 +207,7 @@
 	lineno = 1
 	matched = 0 # Only used for --files-without-matches
 	line = readline handle
-	linelen = length line
+	linelen = length line 
 
 	.local pmc p6rule_compile, cntrlchar
 	$S0 = '<+cntrl-[\t\r\n]>'