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 edb5ab502939ceaeab118b6bf17f445001d10c1c..239d4b2322bbfc95b85c6bb00b3fd03a2835cce3 100644 (file)
--- 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 2d1022a9995ed878cb146b4d2b2091b9f0988d71..607928dcda5aa3d30f8748958462429f5bd7df33 100755 (executable)
--- 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 "$@"; }