Fix compatibility with newer Perls.

The first patch is taken from upstream:
https://svn.savannah.gnu.org/viewvc/texinfo?view=revision&revision=8008

The second gets rid of a deprecation warning that breaks some tests.
Taken from Fedora: <https://bugzilla.redhat.com/show_bug.cgi?id=1590308>.

--- trunk/tp/Texinfo/Convert/XSParagraph/xspara.c	2017/04/30 14:57:26	7765
+++ trunk/tp/Texinfo/Convert/XSParagraph/xspara.c	2018/07/13 15:39:29	8008
@@ -248,6 +248,11 @@
 
   dTHX;
 
+#if PERL_VERSION > 27 || (PERL_VERSION == 27 && PERL_SUBVERSION > 8)
+  /* needed due to thread-safe locale handling in newer perls */
+  switch_to_global_locale();
+#endif
+
   if (setlocale (LC_CTYPE, "en_US.UTF-8")
       || setlocale (LC_CTYPE, "en_US.utf8"))
     goto success;
@@ -320,6 +325,10 @@
     {
 success: ;
       free (utf8_locale);
+#if PERL_VERSION > 27 || (PERL_VERSION == 27 && PERL_SUBVERSION > 8)
+      /* needed due to thread-safe locale handling in newer perls */
+      sync_locale();
+#endif
       /*
       fprintf (stderr, "tried to set LC_CTYPE to UTF-8.\n");
       fprintf (stderr, "character encoding is: %s\n",

diff -up texinfo-6.5/tp/Texinfo/Parser.pm.orig texinfo-6.5/tp/Texinfo/Parser.pm
--- texinfo-6.5/tp/Texinfo/Parser.pm.orig	2018-06-12 13:40:29.356030136 +0200
+++ texinfo-6.5/tp/Texinfo/Parser.pm	2018-06-12 13:41:28.357725639 +0200
@@ -5478,11 +5478,11 @@ sub _parse_special_misc_command($$$$)
     }
   } elsif ($command eq 'clickstyle') {
     # REMACRO
-    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)({})?\s*/) {
+    if ($line =~ /^\s+@([[:alnum:]][[:alnum:]\-]*)(\{})?\s*/) {
       $args = ['@'.$1];
       $self->{'clickstyle'} = $1;
       $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->__(
/td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=8a35e58a27a4d06f2bed7d6a6b106ed6d242555c'>root</a>/<a href='/guix/log/gnu?id=8a35e58a27a4d06f2bed7d6a6b106ed6d242555c'>gnu</a>/<a href='/guix/log/gnu/system?id=8a35e58a27a4d06f2bed7d6a6b106ed6d242555c'>system</a>/<a href='/guix/log/gnu/system/shadow.scm?id=8a35e58a27a4d06f2bed7d6a6b106ed6d242555c'>shadow.scm</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/gnu/system/shadow.scm?id=8a35e58a27a4d06f2bed7d6a6b106ed6d242555c&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-04-23 16:38:12 +0200'>2019-04-23</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=051b279fd08eec80cda248aa12e6875005b7dc4f'>services: account: Make 'user-homes' a one-shot service.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-07 20:05:09 +0100'>2019-03-07</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=0ae735bcc8ff7fdc89d67b492bdee9091ee19e86'>activation: Build account databases with (gnu build accounts).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-07 20:05:09 +0100'>2019-03-07</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=6061d01512081c93c53fdd1d4302b36696403061'>activation: Operate on &lt;user-account&gt; and &lt;user-group&gt; records.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-07 20:04:02 +0100'>2019-03-07</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=f6f67b87c08fe7b901db834c714aceaef2b62b60'>system: Add (gnu system accounts).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-10-19 00:45:20 -0700'>2018-10-19</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=2f4d43584cb26315c028dfbd2197da0d175933a2'>system: Rename .zlogin to .zprofile.</a><span class='msg-avail'>...</span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2018-07-23 12:25:31 +0200'>2018-07-23</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=10df28d74d1f799969d3ce37348c44efb1067c7f'>system: '.guile' skeleton now recommends 'guile-colorized'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-07-05 02:35:03 +0200'>2018-07-05</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=142869f80f5d339f813ec32ebf1fdd9fcc58f578'>Don't force colour in aliases.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2018-06-11 18:23:24 +0200'>2018-06-11</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=b19950a184a9b7506f9be4ecaa043e5a7e460b52'>system: Default .bashrc now sources /etc/bashrc.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-04-04 23:14:35 +0200'>2018-04-04</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=76a77ccaed0f4259e928fc57ae335a0f583d0032'>system: Add default '.nanorc' with syntax highlighting.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-11 14:22:50 -0800'>2018-01-11</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=4adb40bffc0dda8871878283887a0e0cd88d9578'>Merge branch 'master' into core-updates</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2018-01-09 23:39:02 +0100'>2018-01-09</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=b0de7fdba678c1b0ec27b9c8e37c81fb5d49a124'>system: Extend .gdbinit to authorize extensions from /gnu/store/*/lib.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-12-08 18:18:59 +0100'>2017-12-08</span></td><td><a href='/guix/commit/gnu/system/shadow.scm?id=2ba2c98d8aa695cce608313833a36c61b0fb3428'>gnu: guile: Move Readline support to a separate 'guile-readline' package.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>