Apply a change to allow Perl to build correctly with gcc-8

was r11586.

chapter01/changelog.xml

@@ -43,6 +43,15 @@
     appropriate for the entry or if needed the entire day's listitem.
     -->
 
+    <listitem>
+      <para>2019-04-23</para>
+      <itemizedlist>
+        <listitem>
+          <para>[bdubbs] - 修改 Perl 代码，使得最新版本的 gcc 能正确构建它。</para>
+        </listitem>
+      </itemizedlist>
+    </listitem>
+
     <listitem>
       <para>2019-04-20</para>
       <itemizedlist>

chapter06/perl.xml

@@ -62,6 +62,11 @@ export BUILD_BZIP2=0</userinput></screen>
 
 <screen><userinput remap="pre">patch -Np1 -i ../&perl-gcc5-fixes-patch;</userinput></screen>
 -->
+
+    <para>进行修改，使得最新版本的 gcc 能够正确构建该程序：</para>
+
+<screen><userinput remap="pre">sed -i 's/67]/6789]/' Configure</userinput></screen>
+
     <!--para>To have full control over the way Perl is set up, you can remove the
     <quote>-des</quote> options from the following command and hand-pick the way
     this package is built. Alternatively, use the command exactly as below to

general-orig.ent

@@ -1,13 +1,13 @@
-<!ENTITY version         "SVN-20190420">
+<!ENTITY version         "SVN-20190423">
 <!ENTITY short-version   "svn">  <!-- Used below in &blfs-book; 
                                       Change to x.y for release but not -rc releases -->
 <!ENTITY generic-version "development"> <!-- Use "development"  or "x.y[-pre{x}]" -->
 
-<!ENTITY versiond        "20190420-systemd">
+<!ENTITY versiond        "20190423-systemd">
 <!ENTITY short-versiond  "systemd">
 <!ENTITY generic-versiond "systemd"> 
 
-<!ENTITY releasedate     "April 20, 2019">
+<!ENTITY releasedate     "April 23, 2019">
 
 <!ENTITY copyrightdate   "1999-2019"><!-- jhalfs needs a literal dash, not &ndash; -->
 <!ENTITY milestone       "8.5">