From: Pádraig Brady <P@draigBrady.com>
Date: Sun, 10 Apr 2022 14:47:52 +0000 (+0100)
Subject: tests: stty.sh: skip on systems without perl
X-Git-Tag: v9.1~17
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=046ab76166bfe946fa701e1a93ac69e1c69d5a13;p=thirdparty%2Fcoreutils.git

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.
---

diff --git a/init.cfg b/init.cfg
index 310ff055d1..eb57de2643 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' ' ')