cvsuser 04/11/26 20:14:57
Modified: lib/Parrot Test.pm
Log:
Fix for #31732: [TODO] Tcl TODO test
Revision Changes Path
1.60 +7 -1 parrot/lib/Parrot/Test.pm
Index: Test.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -r1.59 -r1.60
--- Test.pm 12 Oct 2004 09:35:12 -0000 1.59
+++ Test.pm 27 Nov 2004 04:14:57 -0000 1.60
@@ -1,5 +1,5 @@
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: Test.pm,v 1.59 2004/10/12 09:35:12 leo Exp $
+# $Id: Test.pm,v 1.60 2004/11/27 04:14:57 josh Exp $
=head1 NAME
@@ -219,6 +219,12 @@
*{$package.'::'.$func} = sub ($$$;$) {
my $language = $_[0];
$language = ucfirst($language) unless ( $language eq 'm4' );
+
+ # make sure TODO will work, by telling Test::Builder which package
+ # the .t file is in (one more than usual, due to the extra layer
+ # of package indirection
+ $Builder->level(2);
+
# get modified PARROT command.
require "Parrot/Test/$language.pm";
# set the builder object, and parrot config.
