Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1879/lib/Module/Build
Modified Files:
Base.pm
Log Message:
Always trust our perl() value more than $^X, and make Test::Harness trust it too
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.351
retrieving revision 1.352
diff -C2 -d -r1.351 -r1.352
*** Base.pm 20 Nov 2004 04:21:21 -0000 1.351
--- Base.pm 20 Nov 2004 04:23:17 -0000 1.352
***************
*** 1321,1326 ****
if (@$tests) {
! # Work around a Test::Harness bug that loses the particular perl we're running under
! local $^X = $p->{perl} unless $Test::Harness::VERSION gt '2.01';
Test::Harness::runtests(@$tests);
} else {
--- 1321,1327 ----
if (@$tests) {
! # Work around a Test::Harness bug that loses the particular perl
! # we're running under. $self->perl is trustworthy, but $^X isn't.
! local $^X = $self->perl;
Test::Harness::runtests(@$tests);
} else {
|
