cvsuser 04/11/26 20:19:28
Modified: lib/Parrot Test.pm
Log:
Just to be sure we don't cause any unexpected problems with the level hack.
Revision Changes Path
1.61 +5 -1 parrot/lib/Parrot/Test.pm
Index: Test.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -r1.60 -r1.61
--- Test.pm 27 Nov 2004 04:14:57 -0000 1.60
+++ Test.pm 27 Nov 2004 04:19:28 -0000 1.61
@@ -1,5 +1,5 @@
# Copyright: 2004 The Perl Foundation. All Rights Reserved.
-# $Id: Test.pm,v 1.60 2004/11/27 04:14:57 josh Exp $
+# $Id: Test.pm,v 1.61 2004/11/27 04:19:28 josh Exp $
=head1 NAME
@@ -223,6 +223,7 @@
# 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
+ my $level = $Builder->level();
$Builder->level(2);
# get modified PARROT command.
@@ -233,6 +234,9 @@
$obj->{relpath} = $path_to_parrot;
$obj->{parrot} = $PARROT;
$obj->$delegate_func(@_[1..$#_]);
+
+ # retore prior level, just in case.
+ $Builder->level($level);
}
} else {
