X-Git-Url: http://www.git.cypherpunks.ru/?p=goredo.git;a=blobdiff_plain;f=t%2Fapenwarr%2F130-mode%2Fall.do;fp=t%2Fapenwarr%2F130-mode%2Fall.do;h=2bd0b06038834ea1bcc45d82b5748e58c7ce729f;hp=5e0fbe90969ffde7570295a340b91e6d126874ab;hb=5a13299ef31c771042764491c6826b587274b169;hpb=6af0124dd6972d44d53290d65c868d14a5843fe0

diff --git a/t/apenwarr/130-mode/all.do b/t/apenwarr/130-mode/all.do
index 5e0fbe9..2bd0b06 100644
--- 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