From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 15 Mar 2006 23:02:49 +0000 (+0000)
Subject: Make the original versions of relocated paths available from
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=86ef366e59c075737dda06eda5c86422f489d06f;p=p5sagit%2Fp5-mst-13.2.git

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@27513
---

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