X-Git-Url: https://git.tokkee.org/?a=blobdiff_plain;f=t%2Ft9401-git-cvsserver-crlf.sh;h=ed7b513f3e82706f6455bb32f4f19a5161bb0415;hb=c4f3f551a61e138f8ace9523d6b16aff37b30302;hp=aca40c1b1ff0f957652f75383625367d85242c14;hpb=1d7d6ad539fabd49421d8ef7b27c0f287430bc7d;p=git.git

diff --git a/t/t9401-git-cvsserver-crlf.sh b/t/t9401-git-cvsserver-crlf.sh
index aca40c1b1..ed7b513f3 100755
--- a/t/t9401-git-cvsserver-crlf.sh
+++ b/t/t9401-git-cvsserver-crlf.sh
@@ -11,14 +11,6 @@ repository using cvs CLI client via git-cvsserver server'
 
 . ./test-lib.sh
 
-q_to_nul () {
-    perl -pe 'y/Q/\000/'
-}
-
-q_to_cr () {
-    tr Q '\015'
-}
-
 marked_as () {
     foundEntry="$(grep "^/$2/" "$1/CVS/Entries")"
     if [ x"$foundEntry" = x"" ] ; then
@@ -57,7 +49,7 @@ then
     say 'skipping git-cvsserver tests, perl not available'
     test_done
 fi
-perl -e 'use DBI; use DBD::SQLite' >/dev/null 2>&1 || {
+"$PERL_PATH" -e 'use DBI; use DBD::SQLite' >/dev/null 2>&1 || {
     say 'skipping git-cvsserver tests, Perl SQLite interface unavailable'
     test_done
 }