Browse Source

git-svn: allow test setup script to support PERL env. var

Possibly the 'perl' in the PATH is not the one to be used for the tests;
let PERL set in the environment select it.

Signed-off-by: Sam Vilain <sam.vilain@catalyst.net.nz>
Acked-by: Eric Wong <normalperson@yhbt.net>
maint
Sam Vilain 16 years ago committed by Eric Wong
parent
commit
a5e9c7dfe4
  1. 5
      t/lib-git-svn.sh

5
t/lib-git-svn.sh

@ -16,6 +16,7 @@ fi
GIT_DIR=$PWD/.git GIT_DIR=$PWD/.git
GIT_SVN_DIR=$GIT_DIR/svn/refs/remotes/git-svn GIT_SVN_DIR=$GIT_DIR/svn/refs/remotes/git-svn
SVN_TREE=$GIT_SVN_DIR/svn-tree SVN_TREE=$GIT_SVN_DIR/svn-tree
PERL=${PERL:-perl}


svn >/dev/null 2>&1 svn >/dev/null 2>&1
if test $? -ne 1 if test $? -ne 1
@ -29,7 +30,7 @@ export svnrepo
svnconf=$PWD/svnconf svnconf=$PWD/svnconf
export svnconf export svnconf


perl -w -e " $PERL -w -e "
use SVN::Core; use SVN::Core;
use SVN::Repos; use SVN::Repos;
\$SVN::Core::VERSION gt '1.1.0' or exit(42); \$SVN::Core::VERSION gt '1.1.0' or exit(42);
@ -130,7 +131,7 @@ stop_httpd () {
} }


convert_to_rev_db () { convert_to_rev_db () {
perl -w -- - "$@" <<\EOF $PERL -w -- - "$@" <<\EOF
use strict; use strict;
@ARGV == 2 or die "Usage: convert_to_rev_db <input> <output>"; @ARGV == 2 or die "Usage: convert_to_rev_db <input> <output>";
open my $wr, '+>', $ARGV[1] or die "$!: couldn't open: $ARGV[1]"; open my $wr, '+>', $ARGV[1] or die "$!: couldn't open: $ARGV[1]";

Loading…
Cancel
Save