Merge branch 'ss/maint-msys-cvsexportcommit'
* ss/maint-msys-cvsexportcommit: git-cvsexportcommit: Fix calling Perl's rel2abs() on MSYS t9200: On MSYS, do not pass Windows-style paths to CVS
This commit is contained in:
commit
96e3360997
@ -30,6 +30,13 @@ if ($opt_w || $opt_W) {
|
||||
chomp($gd);
|
||||
$ENV{GIT_DIR} = $gd;
|
||||
}
|
||||
|
||||
# On MSYS, convert a Windows-style path to an MSYS-style path
|
||||
# so that rel2abs() below works correctly.
|
||||
if ($^O eq 'msys') {
|
||||
$ENV{GIT_DIR} =~ s#^([[:alpha:]]):/#/$1/#;
|
||||
}
|
||||
|
||||
# Make sure GIT_DIR is absolute
|
||||
$ENV{GIT_DIR} = File::Spec->rel2abs($ENV{GIT_DIR});
|
||||
}
|
||||
|
@ -19,9 +19,9 @@ then
|
||||
test_done
|
||||
fi
|
||||
|
||||
CVSROOT=$(pwd)/cvsroot
|
||||
CVSWORK=$(pwd)/cvswork
|
||||
GIT_DIR=$(pwd)/.git
|
||||
CVSROOT=$PWD/cvsroot
|
||||
CVSWORK=$PWD/cvswork
|
||||
GIT_DIR=$PWD/.git
|
||||
export CVSROOT CVSWORK GIT_DIR
|
||||
|
||||
rm -rf "$CVSROOT" "$CVSWORK"
|
||||
|
Loading…
Reference in New Issue
Block a user