From: Jim Meyering <meyering@redhat.com>
Date: Thu, 2 Sep 2010 11:51:56 +0000 (+0200)
Subject: test-update-copyright.sh: skip test if Perl is too old
X-Git-Tag: v0.1~3868
X-Git-Url: http://erislabs.org.uk/gitweb/?a=commitdiff_plain;h=e2c4d9f8d8e1c87f861e6d62bdfe6c6136945c05;p=gnulib.git

test-update-copyright.sh: skip test if Perl is too old

* tests/test-update-copyright.sh: Exit 77 if Perl is too old.
Reported by Tom G. Christensen.
---

diff --git a/ChangeLog b/ChangeLog
index edb5ab502..239d4b232 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-02  Jim Meyering  <meyering@redhat.com>
+
+	test-update-copyright.sh: skip test if Perl is too old
+	* tests/test-update-copyright.sh: Exit 77 if Perl is too old.
+	Reported by Tom G. Christensen.
+
 2010-09-02  Bruno Haible  <bruno@clisp.org>
 
 	wctype: Avoid compilation error on IRIX 6.5.30.
diff --git a/tests/test-update-copyright.sh b/tests/test-update-copyright.sh
index 2d1022a99..607928dcd 100755
--- a/tests/test-update-copyright.sh
+++ b/tests/test-update-copyright.sh
@@ -16,6 +16,10 @@
 # You should have received a copy of the GNU General Public License
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 
+# Skip this test if Perl is too old.  FIXME: 5.6.0 is just a guess.
+# We have a report that 5.004_05 is inadequate and that 5.8.8 works.
+perl -e 'require 5.6.0' || exit 77
+
 diffout=`diff -u /dev/null /dev/null 2>&1`
 if test x"$diffout" = x"" && test $? -eq 0; then
   compare() { diff -u "$@"; }