Fix a deprecation warning with newer Perl that breaks some tests.

--- a/tp/Texinfo/Parser.pm
+++ b/tp/Texinfo/Parser.pm
@@ -5438,12 +5438,12 @@
     }
   } elsif ($command eq 'clickstyle') {
     # REMACRO
-    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
+    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*/) {
       $args = ['@'.$1];
       $self->{'clickstyle'} = $1
         unless(_ignore_global_commands($self));
       $remaining = $line;
-      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
+      $remaining =~ s/^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*(\@(c|comment)((\@|\s+).*)?)?//;
       $has_comment = 1 if (defined($4));
     } else {
       $self->line_error (sprintf($self->__(
on>
<option value='koszko-scripts'>koszko-scripts</option>
</select> <input type='submit' value='switch'/></form></td></tr>
<tr><td class='sub'>Wojtek's customized Guix</td><td class='sub right'></td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>refs</a><a class='active' href='/guix/log/etc/snippets'>log</a><a href='/guix/tree/etc/snippets?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>tree</a><a href='/guix/commit/etc/snippets?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>commit</a><a href='/guix/diff/etc/snippets?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/etc/snippets'>
<input type='hidden' name='id' value='5f57c127012aa8db2285e4ba99c58e07463e4fe3'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>root</a>/<a href='/guix/log/etc?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>etc</a>/<a href='/guix/log/etc/snippets?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3'>snippets</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/etc/snippets?id=5f57c127012aa8db2285e4ba99c58e07463e4fe3&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-06-26 22:45:28 +0200'>2021-06-26</span></td><td><a href='/guix/commit/etc/snippets?id=d822c592438d025107c95dc49435a4c9c3cfd863'>etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’</a><span class='msg-avail'>...<span class='msg-tooltip'>Adjust to changes in commit aaafd19bd1e37265de07e246286a6819792c25b4.

* etc/snippets/scheme-mode/guix-origin: Use ‘hg-file-name’ instead of
‘string-append’ when ‘method’ for origin is ‘hg-fetch’.

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Xinglu Chen</td></tr>
<tr><td><span title='2020-12-23 17:30:14 +0100'>2020-12-23</span></td><td><a href='/guix/commit/etc/snippets?id=d6b0d219c6e4e8392fbeb3263c95e9b7d7c75e1c'>etc: snippets: Add new build systems to package snippet.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/snippets/scheme-mode/guix-package: Add the following as possibilities
for the build-system field:

clojure-build-system
copy-build-system
dune-build-system
guile-build-system
julia-build-system
linux-module-build-system
maven-build-system
node-build-system
qt-build-system
rakudo-build-system

Signed-off-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Morgan Smith</td></tr>
<tr><td><span title='2020-12-04 18:19:39 +0100'>2020-12-04</span></td><td><a href='/guix/commit/etc/snippets?id=39e8bc2ab8f755e05050f2dcbf07143e724d22ed'>etc: snippets: Fix name extraction.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/snippets/text-mode/guix-commit-message-add-package: Fix name
extraction. This is a follow-up to 988a49c78ef19ad25cef543e2059a19db04bbd36.
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2020-12-04 17:09:38 +0100'>2020-12-04</span></td><td><a href='/guix/commit/etc/snippets?id=988a49c78ef19ad25cef543e2059a19db04bbd36'>etc: snippets: Fix name extraction.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/snippets/text-mode/guix-commit-message-update-package: Since git commit
mode is not derived from any Lisp mode, so-called sexp or symbols do not
include the period character.  As a consequence, names including versions are
not properly extracted. Also use more idiomatic (goto-char (point-min))
instead of (beginning-of-buffer).
</span></span></td><td>Nicolas Goaziou</td></tr>
<tr><td><span title='2020-11-25 10:45:42 +0100'>2020-11-25</span></td><td><a href='/guix/commit/etc/snippets?id=402f1104e58b8e76d42689770d0c6b106afaffc8'>etc: snippets: Fix "gnu: Add ..." name when prefilling Common Lisp commits me...</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/snippets/text-mode/guix-commit-message-add-cl-package: Fix name and
simplify the "New variables" line.
</span></span></td><td>Pierre Neidhardt</td></tr>
<tr><td><span title='2020-11-23 11:14:22 +0100'>2020-11-23</span></td><td><a href='/guix/commit/etc/snippets?id=add47499170222f1d449a9a63444e01f115805ff'>etc: snippets: Prefill Common Lisp package names.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/snippets/text-mode/guix-commit-message-add-cl-package: New file.
</span></span></td><td>Pierre Neidhardt</td></tr>
<tr><td><span title='2020-11-23 11:13:58 +0100'>2020-11-23</span></td><td><a href='/guix/commit/etc/snippets?id=8307b8f184d59f69b66292ae1137997caa50cb15'>etc: snippets: Fix package name extraction.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/snippets/text-mode/guix-commit-message-add-package: Properly extract
name when the diff contains a very short `define-public ...` above the actual
new package.  This can happen when the above package is a small inherited
definition or cl/ecl package.
</span></span></td><td>Pierre Neidhardt</td></tr>