| 1 | # serial 10
|
|---|
| 2 |
|
|---|
| 3 | dnl From Jim Meyering.
|
|---|
| 4 | dnl Find a new-enough version of Perl.
|
|---|
| 5 |
|
|---|
| 6 | # Copyright (C) 1998-2001, 2003-2004, 2007, 2009-2021 Free Software Foundation,
|
|---|
| 7 | # Inc.
|
|---|
| 8 | #
|
|---|
| 9 | # This file is free software; the Free Software Foundation
|
|---|
| 10 | # gives unlimited permission to copy and/or distribute it,
|
|---|
| 11 | # with or without modifications, as long as this notice is preserved.
|
|---|
| 12 |
|
|---|
| 13 | AC_DEFUN([gl_PERL],
|
|---|
| 14 | [
|
|---|
| 15 | dnl FIXME: don't hard-code 5.005
|
|---|
| 16 | AC_MSG_CHECKING([for perl5.005 or newer])
|
|---|
| 17 | if test "${PERL+set}" = set; then
|
|---|
| 18 | # 'PERL' is set in the user's environment.
|
|---|
| 19 | candidate_perl_names="$PERL"
|
|---|
| 20 | perl_specified=yes
|
|---|
| 21 | else
|
|---|
| 22 | candidate_perl_names='perl perl5'
|
|---|
| 23 | perl_specified=no
|
|---|
| 24 | fi
|
|---|
| 25 |
|
|---|
| 26 | found=no
|
|---|
| 27 | AC_SUBST([PERL])
|
|---|
| 28 | PERL="$am_missing_run perl"
|
|---|
| 29 | for perl in $candidate_perl_names; do
|
|---|
| 30 | # Run test in a subshell; some versions of sh will print an error if
|
|---|
| 31 | # an executable is not found, even if stderr is redirected.
|
|---|
| 32 | if ( $perl -e 'require 5.005; use File::Compare; use warnings;' ) > /dev/null 2>&1; then
|
|---|
| 33 | PERL=$perl
|
|---|
| 34 | found=yes
|
|---|
| 35 | break
|
|---|
| 36 | fi
|
|---|
| 37 | done
|
|---|
| 38 |
|
|---|
| 39 | AC_MSG_RESULT([$found])
|
|---|
| 40 | test $found = no && AC_MSG_WARN([
|
|---|
| 41 | WARNING: You don't seem to have perl5.005 or newer installed, or you lack
|
|---|
| 42 | a usable version of the Perl File::Compare module. As a result,
|
|---|
| 43 | you may be unable to run a few tests or to regenerate certain
|
|---|
| 44 | files if you modify the sources from which they are derived.
|
|---|
| 45 | ] )
|
|---|
| 46 | ])
|
|---|
