t4200: convert sed expression which operates on non-text file to perl
[gitweb.git] / t / t9700-perl-git.sh
index b81d5dfc340e050815ad9b2fd0d0636c529ce8d3..b4ca244626a6635faa2587722c26f4c17692af65 100755 (executable)
@@ -6,8 +6,13 @@
 test_description='perl interface (Git.pm)'
 . ./test-lib.sh
 
+if ! test_have_prereq PERL; then
+       say 'skipping perl interface tests, perl not available'
+       test_done
+fi
+
 perl -MTest::More -e 0 2>/dev/null || {
-       say_color skip "Perl Test::More unavailable, skipping test"
+       say "Perl Test::More unavailable, skipping test"
        test_done
 }