Perly Git: make sure we do test the freshly built one.

We could BEGIN { push @INC, '@@INSTLIBDIR@@'; } but that is not
a good idea for normal execution.  The would prevent a
workaround for a user who is trying to override an old, faulty
Git.pm installed on the system path with a newer version
installed under $HOME/.

Signed-off-by: Junio C Hamano <junkio@cox.net>
maint
Junio C Hamano 2006-07-02 16:49:12 -07:00
parent 65a4e98a22
commit d3140f5c2a
3 changed files with 12 additions and 3 deletions

View File

@ -5,7 +5,11 @@
# Read .git/FETCH_HEAD and make a human readable merge message # Read .git/FETCH_HEAD and make a human readable merge message
# by grouping branches and tags together to form a single line. # by grouping branches and tags together to form a single line.


BEGIN { unshift @INC, '@@INSTLIBDIR@@'; } BEGIN {
unless (exists $ENV{'RUNNING_GIT_TESTS'}) {
unshift @INC, '@@INSTLIBDIR@@';
}
}
use strict; use strict;
use Git; use Git;
use Error qw(:try); use Error qw(:try);

View File

@ -6,7 +6,11 @@
# This file is licensed under the GPL v2, or a later version # This file is licensed under the GPL v2, or a later version
# at the discretion of Linus Torvalds. # at the discretion of Linus Torvalds.


BEGIN { unshift @INC, '@@INSTLIBDIR@@'; } BEGIN {
unless (exists $ENV{'RUNNING_GIT_TESTS'}) {
unshift @INC, '@@INSTLIBDIR@@';
}
}
use warnings; use warnings;
use strict; use strict;
use Getopt::Std; use Getopt::Std;

View File

@ -206,8 +206,9 @@ PYTHON=`sed -e '1{
PYTHONPATH=$(pwd)/../compat PYTHONPATH=$(pwd)/../compat
export PYTHONPATH export PYTHONPATH
} }
RUNNING_GIT_TESTS=YesWeAre
PERL5LIB=$(pwd)/../perl/blib/lib:$(pwd)/../perl/blib/arch/auto/Git PERL5LIB=$(pwd)/../perl/blib/lib:$(pwd)/../perl/blib/arch/auto/Git
export PERL5LIB export PERL5LIB RUNNING_GIT_TESTS
test -d ../templates/blt || { test -d ../templates/blt || {
error "You haven't built things yet, have you?" error "You haven't built things yet, have you?"
} }