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

1 files changed, 3 insertions, 1 deletions

diff --git a/configpm b/configpm
index 1bd2e38630..46b1972156 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