From 046ab76166bfe946fa701e1a93ac69e1c69d5a13 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?P=C3=A1draig=20Brady?= <P@draigBrady.com>
Date: Sun, 10 Apr 2022 15:47:52 +0100
Subject: [PATCH] tests: stty.sh: skip on systems without perl

* init.cfg (stty_reversible_init_): Add require_perl_
to ensure we skip rather than error, without perl.
---
 init.cfg | 1 +
 1 file changed, 1 insertion(+)

diff --git a/init.cfg b/init.cfg
index 310ff055d..eb57de264 100644
--- a/init.cfg
+++ b/init.cfg
@@ -384,6 +384,7 @@ rwx_to_mode_()
 # with a space.
 stty_reversible_init_()
 {
+  require_perl_
   # Pad start with one space for the first option to match in query function.
   stty_reversible_=' '$(perl -lne '/^ *{"(.*?)",.*\bREV\b/ and print $1' \
     "$abs_top_srcdir"/src/stty.c | tr '\n' ' ')
-- 
2.26.2