From f77576a775f483c61adda2732ded9a76be9c0230 Mon Sep 17 00:00:00 2001
From: Paul Eggert <eggert@cs.ucla.edu>
Date: Fri, 16 Nov 2007 09:35:54 +0100
Subject: [PATCH] Port to Solaris 8 perl, which does not support "use
 warnings;".

* tests/dd/skip-seek: Skip test if "use warnings;" fails.
* tests/du/files0-from: Likewise.
* tests/misc/base64: Likewise.
* tests/misc/basename: Likewise.
* tests/misc/cut: Likewise.
* tests/misc/date: Likewise.
* tests/misc/dircolors: Likewise.
* tests/misc/dirname: Likewise.
* tests/misc/expand: Likewise.
* tests/misc/expr: Likewise.
* tests/misc/factor: Likewise.
* tests/misc/fmt: Likewise.
* tests/misc/fold: Likewise.
* tests/misc/head-elide-tail: Likewise.
* tests/misc/ls-misc: Likewise.
* tests/misc/md5sum: Likewise.
* tests/misc/md5sum-newline: Likewise.
* tests/misc/mktemp: Likewise.
* tests/misc/od: Likewise.
* tests/misc/paste-no-nl: Likewise.
* tests/misc/pr: Likewise.
* tests/misc/seq: Likewise.
* tests/misc/sha1sum: Likewise.
* tests/misc/sha1sum-vec: Likewise.
* tests/misc/sha224sum: Likewise.
* tests/misc/sha256sum: Likewise.
* tests/misc/sha384sum: Likewise.
* tests/misc/sha512sum: Likewise.
* tests/misc/sort-merge: Likewise.
* tests/misc/stat-printf: Likewise.
* tests/misc/sum: Likewise.
* tests/misc/test-diag: Likewise.
* tests/misc/tsort: Likewise.
* tests/misc/unexpand: Likewise.
* tests/misc/wc-files0-from: Likewise.
* tests/misc/xstrtol: Likewise.
* tests/mv/i-1: Likewise.
* tests/rm/empty-name: Likewise.
* tests/rm/unreadable: Likewise.
---
 ChangeLog                  | 43 ++++++++++++++++++++++++++++++++++++++
 tests/dd/skip-seek         |  2 +-
 tests/du/files0-from       |  2 +-
 tests/misc/base64          |  2 +-
 tests/misc/basename        |  2 +-
 tests/misc/cut             |  2 +-
 tests/misc/date            |  2 +-
 tests/misc/dircolors       |  2 +-
 tests/misc/dirname         |  2 +-
 tests/misc/expand          |  2 +-
 tests/misc/expr            |  2 +-
 tests/misc/factor          |  2 +-
 tests/misc/fmt             |  2 +-
 tests/misc/fold            |  2 +-
 tests/misc/head-elide-tail |  2 +-
 tests/misc/ls-misc         |  2 +-
 tests/misc/md5sum          |  2 +-
 tests/misc/md5sum-newline  |  2 +-
 tests/misc/mktemp          |  2 +-
 tests/misc/od              |  2 +-
 tests/misc/paste-no-nl     |  2 +-
 tests/misc/pr              |  2 +-
 tests/misc/seq             |  2 +-
 tests/misc/sha1sum         |  2 +-
 tests/misc/sha1sum-vec     |  2 +-
 tests/misc/sha224sum       |  2 +-
 tests/misc/sha256sum       |  2 +-
 tests/misc/sha384sum       |  2 +-
 tests/misc/sha512sum       |  2 +-
 tests/misc/sort-merge      |  2 +-
 tests/misc/stat-printf     |  2 +-
 tests/misc/sum             |  2 +-
 tests/misc/test-diag       |  2 +-
 tests/misc/tsort           |  2 +-
 tests/misc/unexpand        |  2 +-
 tests/misc/wc-files0-from  |  2 +-
 tests/misc/xstrtol         |  2 +-
 tests/mv/i-1               |  2 +-
 tests/rm/empty-name        |  2 +-
 tests/rm/unreadable        |  2 +-
 40 files changed, 82 insertions(+), 39 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index ab62224459..df756b9d96 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,46 @@
+2007-11-15  Paul Eggert  <eggert@cs.ucla.edu>
+
+	Port to Solaris 8 perl, which does not support "use warnings;".
+	* tests/dd/skip-seek: Skip test if "use warnings;" fails.
+	* tests/du/files0-from: Likewise.
+	* tests/misc/base64: Likewise.
+	* tests/misc/basename: Likewise.
+	* tests/misc/cut: Likewise.
+	* tests/misc/date: Likewise.
+	* tests/misc/dircolors: Likewise.
+	* tests/misc/dirname: Likewise.
+	* tests/misc/expand: Likewise.
+	* tests/misc/expr: Likewise.
+	* tests/misc/factor: Likewise.
+	* tests/misc/fmt: Likewise.
+	* tests/misc/fold: Likewise.
+	* tests/misc/head-elide-tail: Likewise.
+	* tests/misc/ls-misc: Likewise.
+	* tests/misc/md5sum: Likewise.
+	* tests/misc/md5sum-newline: Likewise.
+	* tests/misc/mktemp: Likewise.
+	* tests/misc/od: Likewise.
+	* tests/misc/paste-no-nl: Likewise.
+	* tests/misc/pr: Likewise.
+	* tests/misc/seq: Likewise.
+	* tests/misc/sha1sum: Likewise.
+	* tests/misc/sha1sum-vec: Likewise.
+	* tests/misc/sha224sum: Likewise.
+	* tests/misc/sha256sum: Likewise.
+	* tests/misc/sha384sum: Likewise.
+	* tests/misc/sha512sum: Likewise.
+	* tests/misc/sort-merge: Likewise.
+	* tests/misc/stat-printf: Likewise.
+	* tests/misc/sum: Likewise.
+	* tests/misc/test-diag: Likewise.
+	* tests/misc/tsort: Likewise.
+	* tests/misc/unexpand: Likewise.
+	* tests/misc/wc-files0-from: Likewise.
+	* tests/misc/xstrtol: Likewise.
+	* tests/mv/i-1: Likewise.
+	* tests/rm/empty-name: Likewise.
+	* tests/rm/unreadable: Likewise.
+
 2007-11-15  Andreas Schwab  <schwab@suse.de>
 
 	* m4/include-exclude-prog.m4 (gl_REMOVE_PROG): Fix syntax error.
diff --git a/tests/dd/skip-seek b/tests/dd/skip-seek
index a30195e92a..f2c0393fe5 100755
--- a/tests/dd/skip-seek
+++ b/tests/dd/skip-seek
@@ -21,7 +21,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/du/files0-from b/tests/du/files0-from
index cb82daea28..88f83aab92 100755
--- a/tests/du/files0-from
+++ b/tests/du/files0-from
@@ -21,7 +21,7 @@
 : ${srcdir=.}
 
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/base64 b/tests/misc/base64
index 56c5e2427b..3276635e8c 100755
--- a/tests/misc/base64
+++ b/tests/misc/base64
@@ -22,7 +22,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/basename b/tests/misc/basename
index 07b118559f..e492b9e0dd 100755
--- a/tests/misc/basename
+++ b/tests/misc/basename
@@ -21,7 +21,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/cut b/tests/misc/cut
index 44758343c5..0a8ae3ae60 100755
--- a/tests/misc/cut
+++ b/tests/misc/cut
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/date b/tests/misc/date
index 61a6f3e947..7408ea2772 100755
--- a/tests/misc/date
+++ b/tests/misc/date
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/dircolors b/tests/misc/dircolors
index e93d2fb7da..01f2211287 100755
--- a/tests/misc/dircolors
+++ b/tests/misc/dircolors
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/dirname b/tests/misc/dirname
index 7d0ffda8a1..0530175bf0 100755
--- a/tests/misc/dirname
+++ b/tests/misc/dirname
@@ -22,7 +22,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/expand b/tests/misc/expand
index 7772fefe73..b58ff2970c 100755
--- a/tests/misc/expand
+++ b/tests/misc/expand
@@ -22,7 +22,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/expr b/tests/misc/expr
index 2a7f4c0d59..360d905838 100755
--- a/tests/misc/expr
+++ b/tests/misc/expr
@@ -20,7 +20,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/factor b/tests/misc/factor
index e6d3bcf710..ebe0d64341 100755
--- a/tests/misc/factor
+++ b/tests/misc/factor
@@ -21,7 +21,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/fmt b/tests/misc/fmt
index 043bf723a8..0cc9ba2519 100755
--- a/tests/misc/fmt
+++ b/tests/misc/fmt
@@ -21,7 +21,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/fold b/tests/misc/fold
index df017019ee..a43ebf12f8 100755
--- a/tests/misc/fold
+++ b/tests/misc/fold
@@ -22,7 +22,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/head-elide-tail b/tests/misc/head-elide-tail
index ad1fef797e..4bdcf535bf 100755
--- a/tests/misc/head-elide-tail
+++ b/tests/misc/head-elide-tail
@@ -20,7 +20,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/ls-misc b/tests/misc/ls-misc
index 4fb8f16629..520c5031ea 100755
--- a/tests/misc/ls-misc
+++ b/tests/misc/ls-misc
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/md5sum b/tests/misc/md5sum
index 43407a40e3..1b12e83ada 100755
--- a/tests/misc/md5sum
+++ b/tests/misc/md5sum
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/md5sum-newline b/tests/misc/md5sum-newline
index 22717d41e8..e20f0be8ed 100755
--- a/tests/misc/md5sum-newline
+++ b/tests/misc/md5sum-newline
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/mktemp b/tests/misc/mktemp
index da576e8b23..ed4b3c2bfc 100755
--- a/tests/misc/mktemp
+++ b/tests/misc/mktemp
@@ -21,7 +21,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/od b/tests/misc/od
index 2395fa1187..d827c2b078 100755
--- a/tests/misc/od
+++ b/tests/misc/od
@@ -22,7 +22,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/paste-no-nl b/tests/misc/paste-no-nl
index 68f53a12ea..aa5049c7a5 100755
--- a/tests/misc/paste-no-nl
+++ b/tests/misc/paste-no-nl
@@ -20,7 +20,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/pr b/tests/misc/pr
index 76c32d6b0e..0b7e0a2107 100755
--- a/tests/misc/pr
+++ b/tests/misc/pr
@@ -21,7 +21,7 @@
 : ${srcdir=.}
 
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/seq b/tests/misc/seq
index ec843bcf06..17c8f0c6c1 100755
--- a/tests/misc/seq
+++ b/tests/misc/seq
@@ -20,7 +20,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sha1sum b/tests/misc/sha1sum
index 975c570f5a..62de889d73 100755
--- a/tests/misc/sha1sum
+++ b/tests/misc/sha1sum
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sha1sum-vec b/tests/misc/sha1sum-vec
index d209041683..2dd666c39c 100755
--- a/tests/misc/sha1sum-vec
+++ b/tests/misc/sha1sum-vec
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sha224sum b/tests/misc/sha224sum
index 220a498648..1fdfd3d50b 100755
--- a/tests/misc/sha224sum
+++ b/tests/misc/sha224sum
@@ -21,7 +21,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sha256sum b/tests/misc/sha256sum
index 2d6a0d963a..f4f25d8631 100755
--- a/tests/misc/sha256sum
+++ b/tests/misc/sha256sum
@@ -21,7 +21,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sha384sum b/tests/misc/sha384sum
index 1d3aff0036..bfb9ed0921 100755
--- a/tests/misc/sha384sum
+++ b/tests/misc/sha384sum
@@ -21,7 +21,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sha512sum b/tests/misc/sha512sum
index 74deec5f3b..55798fc707 100755
--- a/tests/misc/sha512sum
+++ b/tests/misc/sha512sum
@@ -21,7 +21,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sort-merge b/tests/misc/sort-merge
index 7884ef62cc..2795b60f5f 100755
--- a/tests/misc/sort-merge
+++ b/tests/misc/sort-merge
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/stat-printf b/tests/misc/stat-printf
index 695be26c92..60d7b6ffa0 100755
--- a/tests/misc/stat-printf
+++ b/tests/misc/stat-printf
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/sum b/tests/misc/sum
index 527170798f..d87bdd03fe 100755
--- a/tests/misc/sum
+++ b/tests/misc/sum
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/test-diag b/tests/misc/test-diag
index f5d7672763..9f0c7cd70c 100755
--- a/tests/misc/test-diag
+++ b/tests/misc/test-diag
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/tsort b/tests/misc/tsort
index 7905020349..9a078aec45 100755
--- a/tests/misc/tsort
+++ b/tests/misc/tsort
@@ -20,7 +20,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/unexpand b/tests/misc/unexpand
index 9752524d5a..e35434403a 100755
--- a/tests/misc/unexpand
+++ b/tests/misc/unexpand
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/wc-files0-from b/tests/misc/wc-files0-from
index 1d46b2a346..6d0bb8c994 100755
--- a/tests/misc/wc-files0-from
+++ b/tests/misc/wc-files0-from
@@ -24,7 +24,7 @@
 
 PROG=`echo $0|sed 's,.*/,,'`; export PROG
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/misc/xstrtol b/tests/misc/xstrtol
index aa2b8a7b54..7fdc4da56c 100755
--- a/tests/misc/xstrtol
+++ b/tests/misc/xstrtol
@@ -24,7 +24,7 @@ fi
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/mv/i-1 b/tests/mv/i-1
index d516859218..0fee59cb25 100755
--- a/tests/mv/i-1
+++ b/tests/mv/i-1
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/rm/empty-name b/tests/rm/empty-name
index ead8422453..a2af5be4cf 100755
--- a/tests/rm/empty-name
+++ b/tests/rm/empty-name
@@ -24,7 +24,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
diff --git a/tests/rm/unreadable b/tests/rm/unreadable
index 4af8280de2..16c4c920a4 100755
--- a/tests/rm/unreadable
+++ b/tests/rm/unreadable
@@ -19,7 +19,7 @@
 : ${PERL=perl}
 : ${srcdir=.}
 
-$PERL -e 1 > /dev/null 2>&1 || {
+$PERL -e 'use warnings;' > /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
-- 
2.47.2