Do not depend on Python for testing

[goredo.git] / t / apenwarr / 130-mode / all.do

diff --git a/t/apenwarr/130-mode/all.do b/t/apenwarr/130-mode/all.do
index 5e0fbe90969ffde7570295a340b91e6d126874ab..2bd0b06038834ea1bcc45d82b5748e58c7ce729f 100644 (file)
--- a/t/apenwarr/130-mode/all.do
+++ b/t/apenwarr/130-mode/all.do
@@ -1,5 +1,4 @@
 umask 0022
 redo mode1
-MODE=$(${PYTHON:-python} -c \
-       'import os; print(oct(os.stat("mode1").st_mode & 0o7777))')
-[ "$MODE" = "0644" -o "$MODE" = "0o644" ] || exit 78
+MODE=$(perl -e '@s=stat "mode1"; printf "%04o", $s[2] & 07777')
+[ "$MODE" = "0644" ] || exit 78