real_path(): reject the empty string

diff --git a/t/t7508-status.sh b/t/t7508-status.sh
index 28e184829c0f12d4060f0b793db8511259bef91e..c206f4777a36a28687def873bd9fe60ed322fbbc 100755 (executable)
--- a/t/t7508-status.sh
+++ b/t/t7508-status.sh
@@ -941,7 +941,7 @@ test_expect_success 'status -s submodule summary (clean submodule)' '
 
 test_expect_success 'status -z implies porcelain' '
        git status --porcelain |
-       perl -pe "s/\012/\000/g" >expect &&
+       "$PERL_PATH" -pe "s/\012/\000/g" >expect &&
        git status -z >output &&
        test_cmp expect output
 '