Index: final-system/common/perl.xml
===================================================================
--- final-system/common/perl.xml	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ final-system/common/perl.xml	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -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: final-system/multilib/perl-64bit.xml
===================================================================
--- final-system/multilib/perl-64bit.xml	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ final-system/multilib/perl-64bit.xml	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -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: final-system/multilib/perl-n32.xml
===================================================================
--- final-system/multilib/perl-n32.xml	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ final-system/multilib/perl-n32.xml	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -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: final-system/multilib/perl.xml
===================================================================
--- final-system/multilib/perl.xml	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ final-system/multilib/perl.xml	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -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: introduction/common/changelog.xml
===================================================================
--- introduction/common/changelog.xml	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ introduction/common/changelog.xml	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -47,4 +47,7 @@
           <para>[jim] - Removed sed from tcl, not required.</para>
         </listitem>
+        <listitem>
+          <para>[jim] - Replace Perl FPIC patch with a sed, to make sure fpic is set correctly.</para>
+        </listitem>
       </itemizedlist>
     </listitem>
Index: materials/common/patches.xml
===================================================================
--- materials/common/patches.xml	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ materials/common/patches.xml	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -200,13 +200,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: patches.ent
===================================================================
--- patches.ent	(revision c295f58a90e31eaadf44837fd759344a0f9db116)
+++ patches.ent	(revision fd779581acfa45f0b757b575e7098acb4599c714)
@@ -139,8 +139,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">
