cvsuser 05/03/31 04:20:52
Modified: lib/Parrot Test.pm
Log:
t/dynclasses failures due to using installed libs
The following trivial patch fixes this. It's written so that an
explicit
PARROT_TEST=0 make test
would turn it off, but Parrot_get_runtime_prefix doesn't support this;
it just tests that PARROT_TEST is defined. But I doubt this is worth
bothering about.
Courtesy of Bob Rogers <[EMAIL PROTECTED]>
Revision Changes Path
1.67 +6 -1 parrot/lib/Parrot/Test.pm
Index: Test.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Test.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -r1.66 -r1.67
--- Test.pm 7 Mar 2005 22:26:49 -0000 1.66
+++ Test.pm 31 Mar 2005 12:20:52 -0000 1.67
@@ -1,5 +1,5 @@
# Copyright: 2004-2005 The Perl Foundation. All Rights Reserved.
-# $Id: Test.pm,v 1.66 2005/03/07 22:26:49 bernhard Exp $
+# $Id: Test.pm,v 1.67 2005/03/31 12:20:52 leo Exp $
=head1 NAME
@@ -152,6 +152,11 @@
skip );
@ISA = qw(Exporter);
+# tell parrot it's being tested. this disables searching of installed
libraries
+# (see Parrot_get_runtime_prefix in src/library.c).
+$ENV{PARROT_TEST} = 1
+ unless defined($ENV{PARROT_TEST});
+
my $builder = Test::Builder->new();
sub import {
