From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 16 May 2006 16:41:45 +0000 (+0000)
Subject: Revert change 27513
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d962fa19aed5e09e2a40f248faf69d89e34ac51;p=p5sagit%2Fp5-mst-13.2.git

Revert change 27513
[Make the original versions of relocated paths available from
 %Config::Config with the prefix "raw_". Not sure if "raw_" is the
 best choice.]

p4raw-id: //depot/perl@28210
---

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