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

[fperrad at svn.parrot.org]

Author: fperrad
Date: Wed Dec 16 11:01:48 2009
New Revision: 43092
URL: https://trac.parrot.org/parrot/changeset/43092

Log:
Fix Getopt::Obj to use a keyed namespace

Modified:
   trunk/tools/util/pgegrep

Modified: trunk/tools/util/pgegrep
==============================================================================
--- trunk/tools/util/pgegrep	Wed Dec 16 08:53:37 2009	(r43091)
+++ trunk/tools/util/pgegrep	Wed Dec 16 11:01:48 2009	(r43092)
@@ -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]>'