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>
This commit is contained in:
Sam Vilain 2009-10-20 15:42:00 +13:00 коммит произвёл Eric Wong
Родитель cb74a0ca61
Коммит a5e9c7dfe4
1 изменённых файлов: 3 добавлений и 2 удалений

Просмотреть файл

@ -16,6 +16,7 @@ fi
GIT_DIR=$PWD/.git
GIT_SVN_DIR=$GIT_DIR/svn/refs/remotes/git-svn
SVN_TREE=$GIT_SVN_DIR/svn-tree
PERL=${PERL:-perl}
svn >/dev/null 2>&1
if test $? -ne 1
@ -29,7 +30,7 @@ export svnrepo
svnconf=$PWD/svnconf
export svnconf
perl -w -e "
$PERL -w -e "
use SVN::Core;
use SVN::Repos;
\$SVN::Core::VERSION gt '1.1.0' or exit(42);
@ -130,7 +131,7 @@ stop_httpd () {
}
convert_to_rev_db () {
perl -w -- - "$@" <<\EOF
$PERL -w -- - "$@" <<\EOF
use strict;
@ARGV == 2 or die "Usage: convert_to_rev_db <input> <output>";
open my $wr, '+>', $ARGV[1] or die "$!: couldn't open: $ARGV[1]";