t: Replace 'perl' by $PERL_PATH
[gitweb.git] / t / t3300-funny-names.sh
index c53c9f65ebd2824d4a0d528b25d85e1e0b26f4df..f42adc4ad5be62ee663dc957febc51b2e7b1eab5 100755 (executable)
@@ -71,7 +71,7 @@ test_expect_success 'ls-files -z does not quote funny filename' '
        tabs    ," (dq) and spaces
        EOF
        git ls-files -z >ls-files.z &&
-       perl -pe "y/\000/\012/" <ls-files.z >current &&
+       $PERL_PATH -pe "y/\000/\012/" <ls-files.z >current &&
        test_cmp expected current
 '
 
@@ -108,7 +108,7 @@ test_expect_success 'diff-index -z does not quote funny filename' '
        tabs    ," (dq) and spaces
        EOF
        git diff-index -z --name-status $t0 >diff-index.z &&
-       perl -pe "y/\000/\012/" <diff-index.z >current &&
+       $PERL_PATH -pe "y/\000/\012/" <diff-index.z >current &&
        test_cmp expected current
 '
 
@@ -118,7 +118,7 @@ test_expect_success 'diff-tree -z does not quote funny filename' '
        tabs    ," (dq) and spaces
        EOF
        git diff-tree -z --name-status $t0 $t1 >diff-tree.z &&
-       perl -pe y/\\000/\\012/ <diff-tree.z >current &&
+       $PERL_PATH -pe y/\\000/\\012/ <diff-tree.z >current &&
        test_cmp expected current
 '