X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=configpm;h=cb6122cf668c0512fa896b7717fbcb7f7a30f1d2;hb=f4fee1ae61e02e37337727b540a7d3ca4e7b7d0e;hp=9ef876e3112f156f7c24c27de5d59b8b63cd0776;hpb=962e59f3942cd3c21a40f74d9355b5264589f9a0;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/configpm b/configpm
index 9ef876e..cb6122c 100755
--- a/configpm
+++ b/configpm
@@ -481,9 +481,7 @@ if ($Common{byteorder}) {
 if (@need_relocation) {
 $heavy_txt .= 'foreach my $what (qw(' . join (' ', @need_relocation) .
       ")) {\n" . <<'EOT';
-    s<^($what=)(['"])(.*?)\2>
-     <$1 . $2 . relocate_inc($3) . $2 . "\n" .
-      'raw_' . $1 . $2 . $3 . $2>me;
+    s/^($what=)(['"])(.*?)\2/$1 . $2 . relocate_inc($3) . $2/me;
 }
 EOT
 # Currently it only makes sense to do the ... relocation on Unix, so there's