diff --git a/gettext-tools/tests/lang-perl-1 b/gettext-tools/tests/lang-perl-1
index 426038cfb..523dcb66f 100755
--- a/gettext-tools/tests/lang-perl-1
+++ b/gettext-tools/tests/lang-perl-1
@@ -100,9 +100,9 @@ perl -e 'use Locale::Messages;' 2>/dev/null \
 
 : ${LOCALE_FR=fr_FR}
 : ${LOCALE_FR_UTF8=fr_FR.UTF-8}
-# perl on NetBSD supports only UTF-8 locales.
+# perl on macOS (Fink) and NetBSD supports only UTF-8 locales.
 case "$host_os" in
-  netbsd*) LOCALE_FR=none ;;
+  darwin* | netbsd*) LOCALE_FR=none ;;
 esac
 if test $LOCALE_FR != none; then
   prepare_locale_ fr $LOCALE_FR
diff --git a/gettext-tools/tests/lang-perl-2 b/gettext-tools/tests/lang-perl-2
index 5d57552d3..c74a0b444 100755
--- a/gettext-tools/tests/lang-perl-2
+++ b/gettext-tools/tests/lang-perl-2
@@ -100,9 +100,9 @@ perl -M'Locale::TextDomain' -e '' 2>/dev/null \
 
 : ${LOCALE_FR=fr_FR}
 : ${LOCALE_FR_UTF8=fr_FR.UTF-8}
-# perl on NetBSD supports only UTF-8 locales.
+# perl on macOS (Fink) and NetBSD supports only UTF-8 locales.
 case "$host_os" in
-  netbsd*) LOCALE_FR=none ;;
+  darwin* | netbsd*) LOCALE_FR=none ;;
 esac
 if test $LOCALE_FR != none; then
   prepare_locale_ fr $LOCALE_FR