| 1 | # serial 11
 | 
|---|
| 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-2022 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_CACHE_CHECK([for Perl 5.005 or newer],
 | 
|---|
| 17 |  [gl_cv_prog_perl],
 | 
|---|
| 18 |  [
 | 
|---|
| 19 |   if test "${PERL+set}" = set; then
 | 
|---|
| 20 |     # 'PERL' is set in the user's environment.
 | 
|---|
| 21 |     candidate_perl_names="$PERL"
 | 
|---|
| 22 |     perl_specified=yes
 | 
|---|
| 23 |   else
 | 
|---|
| 24 |     candidate_perl_names='perl perl5'
 | 
|---|
| 25 |     perl_specified=no
 | 
|---|
| 26 |   fi
 | 
|---|
| 27 | 
 | 
|---|
| 28 |   gl_cv_prog_perl=no
 | 
|---|
| 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 |       gl_cv_prog_perl=$perl
 | 
|---|
| 34 |       break
 | 
|---|
| 35 |     fi
 | 
|---|
| 36 |   done
 | 
|---|
| 37 |  ])
 | 
|---|
| 38 | 
 | 
|---|
| 39 | if test "$gl_cv_prog_perl" != no; then
 | 
|---|
| 40 |   PERL=$gl_cv_prog_perl
 | 
|---|
| 41 | else
 | 
|---|
| 42 |   PERL="$am_missing_run perl"
 | 
|---|
| 43 |   AC_MSG_WARN([
 | 
|---|
| 44 | WARNING: You don't seem to have perl5.005 or newer installed, or you lack
 | 
|---|
| 45 |          a usable version of the Perl File::Compare module.  As a result,
 | 
|---|
| 46 |          you may be unable to run a few tests or to regenerate certain
 | 
|---|
| 47 |          files if you modify the sources from which they are derived.
 | 
|---|
| 48 | ] )
 | 
|---|
| 49 | fi
 | 
|---|
| 50 | 
 | 
|---|
| 51 | AC_SUBST([PERL])
 | 
|---|
| 52 | 
 | 
|---|
| 53 | ])
 | 
|---|