cvsuser 04/11/22 03:04:45
Modified: lib/Parrot/Test P6GE.pm
Log:
Fixed Test::P6GE to cope with the new namespacing. Also got rid of a
warning during testing.
Revision Changes Path
1.3 +4 -1 parrot/lib/Parrot/Test/P6GE.pm
Index: P6GE.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test/P6GE.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- P6GE.pm 21 Nov 2004 02:12:58 -0000 1.2
+++ P6GE.pm 22 Nov 2004 11:04:44 -0000 1.3
@@ -96,11 +96,14 @@
print "\\n"
match."_print"()\n);
}
+ else {
+ $captures = "";
+ }
return qq(
.sub _P6GE_Test
.local pmc p6rule_compile
load_bytecode "compilers/p6ge/p6ge.pir"
- p6rule_compile = global "_p6ge_compile"
+ find_global p6rule_compile, "P6GE", "_p6ge_compile"
.local string target
.local string pattern
