Index: BOOK/final-system/common/perl.xml
===================================================================
--- BOOK/final-system/common/perl.xml	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/final-system/common/perl.xml	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -26,9 +26,11 @@
     <title>Installation of Perl</title>
 
-    <para os="p1">The following patch causes <filename>DynaLoader.a</filename>
+    <para os="s1">The following sed causes <filename>DynaLoader.a</filename>
     to be built with -fPIC so it can be linked into a shared library
     later.</para>
 
-<screen os="p2"><userinput>patch -Np1 -i ../&perl-fpic-patch;</userinput></screen>
+<screen os="s2"><userinput>sed -i Makefile.SH \
+    -e "s@pldlflags=''@pldlflags=\"\$cccdlflags\"@g" \
+    -e "s@static_target='static'@static_target='static_pic'@g"</userinput></screen>
 
     <para os="a00">Before starting to configure, create a basic
Index: BOOK/final-system/multilib/perl-64bit.xml
===================================================================
--- BOOK/final-system/multilib/perl-64bit.xml	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/final-system/multilib/perl-64bit.xml	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -24,9 +24,9 @@
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
     href="../common/perl.xml"
-    xpointer="xpointer(//*[@os='p1'])"/>
+    xpointer="xpointer(//*[@os='s1'])"/>
 
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
     href="../common/perl.xml"
-    xpointer="xpointer(//*[@os='p2'])"/>
+    xpointer="xpointer(//*[@os='s2'])"/>
 
     <para os="p3">Perl does not, by default, know about library directories with names other
Index: BOOK/final-system/multilib/perl-n32.xml
===================================================================
--- BOOK/final-system/multilib/perl-n32.xml	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/final-system/multilib/perl-n32.xml	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -25,9 +25,9 @@
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
     href="../common/perl.xml"
-    xpointer="xpointer(//*[@os='p1'])"/>
+    xpointer="xpointer(//*[@os='s1'])"/>
 
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
     href="../common/perl.xml"
-    xpointer="xpointer(//*[@os='p2'])"/>
+    xpointer="xpointer(//*[@os='s2'])"/>
 
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
Index: BOOK/final-system/multilib/perl.xml
===================================================================
--- BOOK/final-system/multilib/perl.xml	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/final-system/multilib/perl.xml	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -25,9 +25,9 @@
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
     href="../common/perl.xml"
-    xpointer="xpointer(//*[@os='p1'])"/>
+    xpointer="xpointer(//*[@os='s1'])"/>
 
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
     href="../common/perl.xml"
-    xpointer="xpointer(//*[@os='p2'])"/>
+    xpointer="xpointer(//*[@os='s2'])"/>
 
     <xi:include xmlns:xi="http://www.w3.org/2003/XInclude"
Index: BOOK/introduction/common/changelog.xml
===================================================================
--- BOOK/introduction/common/changelog.xml	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/introduction/common/changelog.xml	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -42,4 +42,7 @@
         <listitem>
           <para>[jim] - Removed the keymap settings from the kernel pages.</para>
+        </listitem>
+        <listitem>
+          <para>[jim] - Replace Perl FPIC patch with a sed, to make sure fpic is set correctly.</para>
         </listitem>
       </itemizedlist>
Index: BOOK/materials/common/patches.xml
===================================================================
--- BOOK/materials/common/patches.xml	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/materials/common/patches.xml	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -209,13 +209,4 @@
 
     <varlistentry>
-      <term>Perl fPIC Patch - <token>&perl-fpic-patch-size;</token>:</term>
-      <listitem>
-        <para>Download: <ulink
-        url="&patches-root;&perl-fpic-patch;"/></para>
-        <para>MD5 sum: <literal>&perl-fpic-patch-md5;</literal></para>
-      </listitem>
-    </varlistentry>
-
-    <varlistentry>
       <term>Perl Libc Patch - <token>&perl-libc-patch-size;</token>:</term>
       <listitem>
Index: BOOK/patches.ent
===================================================================
--- BOOK/patches.ent	(revision 2ca41971e6bbaca4e6bba5ed67addd50d8013679)
+++ BOOK/patches.ent	(revision 96d0fe5111ce62da623030f8f4e16b3b044dea4a)
@@ -147,8 +147,4 @@
 <!-- Start of multilib patches -->
 
-<!ENTITY perl-fpic-patch "perl-&perl-version;-fPIC-1.patch">
-<!ENTITY perl-fpic-patch-md5 "7d784d82b1366ab88b5fc265387d2a16">
-<!ENTITY perl-fpic-patch-size "4 KB">
-
 <!ENTITY binutils-multilib-patch "binutils-&binutils-version;-genscripts_multilib-1.patch">
 <!ENTITY binutils-multilib-patch-md5 "b1d8d22ab473212abf1b19978415775b">
