Perly Git: make sure we do test the freshly built one.
authorJunio C Hamano <junkio@cox.net>
Sun, 2 Jul 2006 23:49:12 +0000 (16:49 -0700)
committerJunio C Hamano <junkio@cox.net>
Mon, 3 Jul 2006 00:15:31 +0000 (17:15 -0700)
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>
git-fmt-merge-msg.perl
git-mv.perl
t/test-lib.sh
index 1b23fa150b7dd8af9850af71382e78c1a21c7321..a9805dd5119540df40cd08b27d9de35909e1fffc 100755 (executable)
@@ -5,7 +5,11 @@
 # Read .git/FETCH_HEAD and make a human readable merge message
 # 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 Git;
 use Error qw(:try);
index a60489617e517d02b824f14815c2be61209df6b6..5134b805a5f69afc127f9904161948773c5df41b 100755 (executable)
@@ -6,7 +6,11 @@
 # This file is licensed under the GPL v2, or a later version
 # at the discretion of Linus Torvalds.
 
-BEGIN { unshift @INC, '@@INSTLIBDIR@@'; }
+BEGIN {
+       unless (exists $ENV{'RUNNING_GIT_TESTS'}) {
+               unshift @INC, '@@INSTLIBDIR@@';
+       }
+}
 use warnings;
 use strict;
 use Getopt::Std;
index fba0c51d97ac0d3851589de3308bda1de0a1869d..298c6caa7346ca394af997d0311bb6f0bd23e915 100755 (executable)
@@ -206,8 +206,9 @@ PYTHON=`sed -e '1{
        PYTHONPATH=$(pwd)/../compat
        export PYTHONPATH
 }
+RUNNING_GIT_TESTS=YesWeAre
 PERL5LIB=$(pwd)/../perl/blib/lib:$(pwd)/../perl/blib/arch/auto/Git
-export PERL5LIB
+export PERL5LIB RUNNING_GIT_TESTS
 test -d ../templates/blt || {
        error "You haven't built things yet, have you?"
 }