Run $PERL to see if it is available, rather than testing its value.

diff --git a/tests/basename/basic b/tests/basename/basic
index f44e39823a2bf2a122ddae1efa4b0b2f0aea5f61..e98e842b9fc3fe84ccdb1234a31b6f8bed5ca6c9 100755 (executable)
--- a/tests/basename/basic
+++ b/tests/basename/basic
@@ -4,13 +4,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *missing\ perl)
-    echo 1>&2 "$0: configure didn't find a usable version of Perl," \
-      "so can't run this test"
-    exit 77
-    ;;
-esac
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
+  exit 77
+}
 
 d=$srcdir/..
 exec $PERL -w -I$d -MFetish -- - << \EOF

diff --git a/tests/dd/skip-seek b/tests/dd/skip-seek
index 97345a9cc3efd20b40a520c3a371b3cdae2f9cbe..ecec6b9154b2cadb680ce7e5918aa62c7bb58355 100755 (executable)
--- a/tests/dd/skip-seek
+++ b/tests/dd/skip-seek
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 SCRIPT_NAME=$0
 export SCRIPT_NAME

diff --git a/tests/dircolors/simple b/tests/dircolors/simple
index 2f3a4ca2ba83c45494bdb133173bb34849b799b3..99d772e1cf6351f084096baeed9a8972578108ad 100755 (executable)
--- a/tests/dircolors/simple
+++ b/tests/dircolors/simple
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/expr/basic b/tests/expr/basic
index e1c213833a625dcb0a4a4ca37e8bf957b2d01fac..da978e7d547c45f03d1dc30f6c0ae4631038fe10 100755 (executable)
--- a/tests/expr/basic
+++ b/tests/expr/basic
@@ -4,13 +4,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-    echo 1>&2 "$0: configure didn't find a usable version of Perl," \
-      "so can't run this test"
-    exit 77
-    ;;
-esac
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
+  exit 77
+}
 
 d=$srcdir/..
 exec $PERL -w -I$d -MFetish -- - << \EOF

diff --git a/tests/factor/basic b/tests/factor/basic
index 0c830315f0313f8ea68b7523863bde8fb163ef34..884dd12806d9bb1199920661cb2275dce40a90f9 100755 (executable)
--- a/tests/factor/basic
+++ b/tests/factor/basic
@@ -4,13 +4,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-    echo 1>&2 "$0: configure didn't find a usable version of Perl," \
-      "so can't run this test"
-    exit 77
-    ;;
-esac
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
+  exit 77
+}
 
 d=$srcdir/..
 exec $PERL -w -I$d -MFetish -- - << \EOF

diff --git a/tests/fmt/basic b/tests/fmt/basic
index 7450a94ef5992de90b19dbd1c2be4d3614955d1b..fb1c060b9492f16d7144685878b42a61cd6b2962 100755 (executable)
--- a/tests/fmt/basic
+++ b/tests/fmt/basic
@@ -4,12 +4,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 # Export this to avoid hassles when run in a UTF-8 locale,
 # since we use 8-bit characters below, and those values are

diff --git a/tests/ls-2/tests b/tests/ls-2/tests
index 55a6fd56d10351a2b0018178528a75ab50deb20f..7b1a14ab2739de4416f37a168614c189503170fa 100755 (executable)
--- a/tests/ls-2/tests
+++ b/tests/ls-2/tests
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - << \EOF
 require 5.003;

diff --git a/tests/md5sum/basic-1 b/tests/md5sum/basic-1
index d2dfb42287e5225e688d445d353e28381da982f4..e76c304a349374bfcfbe5804be09ee5e29bbe090 100755 (executable)
--- a/tests/md5sum/basic-1
+++ b/tests/md5sum/basic-1
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/md5sum/newline-1 b/tests/md5sum/newline-1
index a075f3f50b0fb5131006dc36780f7e4f6ebf8001..7473e554d9d1f75a65a458c0d57caeafe4777cc7 100755 (executable)
--- a/tests/md5sum/newline-1
+++ b/tests/md5sum/newline-1
@@ -3,13 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
+$PERL -e 1 > /dev/null 2>&1 || {
   echo 1>&2 "$0: configure didn't find a usable version of Perl," \
     "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 # See if we can create a filename that contains a newline.
 # Be careful to do it in a subshell so that we can redirect the

diff --git a/tests/misc/sort b/tests/misc/sort
index 06cf6ace78fc6e468af122f3fca3ecc1cffa12c3..cd3ff5395b8f44cce7428e75fdaea20d52eb8994 100755 (executable)
--- a/tests/misc/sort
+++ b/tests/misc/sort
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/misc/tty-eof b/tests/misc/tty-eof
index c5d57ab0186ad020dbf6413877b602b2e2907efb..784bd204d40d45bbdfa367242c3b0d9a7c6b2712 100755 (executable)
--- a/tests/misc/tty-eof
+++ b/tests/misc/tty-eof
@@ -2,13 +2,11 @@
 
 : ${PERL=perl}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run thi
-s test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 ARGV_0=$0
 export ARGV_0

diff --git a/tests/mv/i-1 b/tests/mv/i-1
index 98929b423219bb566b54b01306cdef59933f5d66..517942a2521c11a051efab5b3a054e5ba0115846 100755 (executable)
--- a/tests/mv/i-1
+++ b/tests/mv/i-1
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/rm/empty-name b/tests/rm/empty-name
index e20a146af2cd012567c6af9e3ca0bf579c3667e2..c9db70a99213591ddc34aa3100778241f0057f33 100755 (executable)
--- a/tests/rm/empty-name
+++ b/tests/rm/empty-name
@@ -7,12 +7,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - << \EOF
 require 5.003;

diff --git a/tests/rm/fail-eperm b/tests/rm/fail-eperm
index 837804bdd1bfbd865d51d179ef101477d807faa3..2e4d64cb3e5c195fb412a8114884593a618b27c5 100755 (executable)
--- a/tests/rm/fail-eperm
+++ b/tests/rm/fail-eperm
@@ -6,13 +6,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl') #'
-  echo 1>&2 \
-   "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 ARGV_0=$0
 export ARGV_0

diff --git a/tests/rm/unreadable b/tests/rm/unreadable
index a778e015ddd9540de2788c2f3451676fb35547c2..737e22a99297ed16ec4a08958a83b40b1e783ba2 100755 (executable)
--- a/tests/rm/unreadable
+++ b/tests/rm/unreadable
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - << \EOF
 require 5.003;

diff --git a/tests/seq/basic b/tests/seq/basic
index 8740dfa922e2972eb98b41bd0cda2458b90a6101..1bcece00bd950b35b7a147e03875e0206311a169 100755 (executable)
--- a/tests/seq/basic
+++ b/tests/seq/basic
@@ -4,13 +4,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *missing\ perl)
-    echo 1>&2 "$0: configure didn't find a usable version of Perl," \
-      "so can't run this test"
-    exit 77
-    ;;
-esac
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
+  exit 77
+}
 
 d=$srcdir/..
 exec $PERL -w -I$d -MFetish -- - << \EOF

diff --git a/tests/sha1sum/basic-1 b/tests/sha1sum/basic-1
index 8e148267ad663e929597386518b366979cce5f98..8910185b980f026ba922d4104a4960cc1158afb2 100755 (executable)
--- a/tests/sha1sum/basic-1
+++ b/tests/sha1sum/basic-1
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/sha1sum/sample-vec b/tests/sha1sum/sample-vec
index e300778e74ce9d12007695649db57e1981157d59..b6d86589da83b92b63e1177aa74bdb18efe21bad 100755 (executable)
--- a/tests/sha1sum/sample-vec
+++ b/tests/sha1sum/sample-vec
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/sum/basic-1 b/tests/sum/basic-1
index 5c12dfb51d809454aaa09722532be0fa7fc23401..0b752adb950ec040ae01fd57e44183803e32267f 100755 (executable)
--- a/tests/sum/basic-1
+++ b/tests/sum/basic-1
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;

diff --git a/tests/sum/sysv b/tests/sum/sysv
index 39697bb737be195a9af51457ee2a7ec61941377d..cda557018f89234bf483e45f09d85238cae7af90 100755 (executable)
--- a/tests/sum/sysv
+++ b/tests/sum/sysv
@@ -6,12 +6,11 @@ if test "$VERBOSE" = yes; then
   sum --version
 fi
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 # Avoid a problem when run in a UTF-8 locale.
 # Otherwise, Perl would try to (and fail to) interpret

diff --git a/tests/tsort/basic-1 b/tests/tsort/basic-1
index 99b1fedd278bab359befae4b0cd2aba2ffb0e435..a70830c5892b352a370bf8544ccb2c4efcbead2e 100755 (executable)
--- a/tests/tsort/basic-1
+++ b/tests/tsort/basic-1
@@ -4,13 +4,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
-#'
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 #/

diff --git a/tests/unexpand/basic-1 b/tests/unexpand/basic-1
index 8640e981c25d442788927d2fc26b9d1e1fa2e34c..e366f49fad351affb5145a11223f127e9792d957 100755 (executable)
--- a/tests/unexpand/basic-1
+++ b/tests/unexpand/basic-1
@@ -3,12 +3,11 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-case "$PERL" in
-  *'missing perl')
-  echo 1>&2 "$0: configure didn't find a usable version of Perl, so can't run this test"
+$PERL -e 1 > /dev/null 2>&1 || {
+  echo 1>&2 "$0: configure didn't find a usable version of Perl," \
+    "so can't run this test"
   exit 77
-  ;;
-esac
+}
 
 exec $PERL -w -I$srcdir/.. -MFetish -- - <<\EOF
 require 5.003;