GNU gperfのインストール

sh -eux <<-"EOT"
PKG=gperf VER=3.1 TAG=v$VER
LOCAL=~/.local J=$(grep -cs '^processor' /proc/cpuinfo || echo 2)
mkdir -p "$LOCAL/src"
cd "$LOCAL/src"

if command -v git >/dev/null; then
  [ -e $PKG ] || git clone --depth 1 git://git.savannah.gnu.org/gperf.git $PKG
  cd $PKG
  git fetch --depth 1 origin tag $TAG
  git checkout -f $TAG
  git clean -dfX
  [ -e .gitmodules ] && git submodule foreach --recursive git clean -dfX
  GNULIB_TOOL=$(command -v gnulib-tool) ./autogen.sh
else
  [ -e $PKG-$VER ] || wget http://ftp.gnu.org/pub/gnu/gperf/$PKG-$VER.tar.gz
  tar -xf $PKG-$VER.*
  cd $PKG-$VER
  make -kj $J distclean clean || :
fi

[ $(echo $VER | sed 's/[^0-9]//g') -le 31 ] && patch -lNp 1 <<-"EOP" || :
diff --git a/doc/texi2html b/doc/texi2html
diff --git a/doc/texi2html b/doc/texi2html
index d423c2f..5ada126 100755
--- a/doc/texi2html
+++ b/doc/texi2html
@@ -1561,7 +1561,7 @@ sub update_sec_num {
     $level--; # here we start at 0
     if ($name =~ /^appendix/) {
   # appendix style
-  if (defined(@appendix_sec_num)) {
+  if (@appendix_sec_num) {
       &incr_sec_num($level, @appendix_sec_num);
   } else {
       @appendix_sec_num = ('A', 0, 0, 0);
@@ -1569,7 +1569,7 @@ sub update_sec_num {
   return(join('.', @appendix_sec_num[0..$level]));
     } else {
   # normal style
-  if (defined(@normal_sec_num)) {
+  if (@normal_sec_num) {
       &incr_sec_num($level, @normal_sec_num);
   } else {
       @normal_sec_num = (1, 0, 0, 0);

diff --git a/doc/texi2html b/doc/texi2html
index 5ada126..ca8b5fc 100755
--- a/doc/texi2html
+++ b/doc/texi2html
@@ -879,7 +879,7 @@ while ($_ = &next_line) {
     s/\@refill\s+//g;
     # other substitutions
     &simple_substitutions;
-    s/\@value{($VARRE)}/$value{$1}/eg;
+    s/\@value\{($VARRE)\}/$value{$1}/eg;
     s/\@footnote\{/\@footnote$docu_doc\{/g; # mark footnotes, cf. pass 4
     #
     # analyze the tag again
@@ -1204,7 +1204,7 @@ while (@lines) {
     #
     # xref
     #
-    while (/\@(x|px|info|)ref{($XREFRE)(}?)/o) {
+    while (/\@(x|px|info|)ref\{($XREFRE)(\}?)/o) {
   # note: Texinfo may accept other characters
   ($type, $nodes, $full) = ($1, $2, $3);
   ($before, $after) = ($`, $');
@@ -1810,7 +1810,7 @@ sub substitute_style {
     while ($changed) {
   $changed = 0;
   $done = '';
-  while (/\@(\w+|"|\~|,|\^){([^\{\}]+)}/) {
+  while (/\@(\w+|"|\~|,|\^)\{([^\{\}]+)\}/) {
       $text = &apply_style($1, $2);
       if ($text) {
     $_ = "$`$text$'";
EOP

./configure --prefix="$LOCAL/stow/$PKG-$VER"
make -j $J
make -j $J check
make -j $J install

cd "$LOCAL/stow"
echo $PKG-[0-9]* | xargs -n 1 stow --ignore=dir -D
stow --ignore=dir $PKG-$VER
EOT

defined(@array) and defined(%hash) are now fatal errors

These have been deprecated since v5.6.1 and have raised deprecation warnings since v5.16.

30
defined(@array) is deprecated

(D) defined() is not usually useful on arrays because it checks for an undefined scalar value. If you want to see if the array is empty, just use if (@array) { # not empty } for example.
30
defined(%hash) is deprecated

(D) defined() is not usually useful on hashes because it checks for an undefined scalar value. If you want to see if the hash is empty, just use if (%hash) { # not empty } for example.

Some formerly deprecated uses of an unescaped left brace “{” in regular expression patterns are now illegal

But to avoid breaking code unnecessarily, most instances that issued a deprecation warning, remain legal and now have a non-deprecation warning raised. See Unescaped left braces in regular expressions in perldeprecation.

Unescaped left braces in regular expressions

The simple rule to remember, if you want to match a literal { character (U+007B LEFT CURLY BRACKET) in a regular expression pattern, is to escape each literal instance of it in some way. Generally easiest is to precede it with a backslash, like \{ or enclose it in square brackets ([{]). If the pattern delimiters are also braces, any matching right brace (}) should also be escaped to avoid confusing the parser, for example,

qr{abc\{def\}ghi}

Forcing literal { characters to be escaped will enable the Perl language to be extended in various ways in future releases. To avoid needlessly breaking existing code, the restriction is is not enforced in contexts where there are unlikely to ever be extensions that could conflict with the use there of { as a literal. A non-deprecation warning that the left brace is being taken literally is raised in contexts where there could be confusion about it.

Literal uses of { were deprecated in Perl 5.20, and some uses of it started to give deprecation warnings since. These cases were made fatal in Perl 5.26. Due to an oversight, not all cases of a use of a literal { got a deprecation warning. Some cases started warning in Perl 5.26, and were made fatal in Perl 5.30. Other cases started in Perl 5.28, and will be made fatal in 5.32.