This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the original versions of relocated paths available from
authorNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 23:02:49 +0000 (23:02 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 15 Mar 2006 23:02:49 +0000 (23:02 +0000)
%Config::Config with the prefix "raw_". Not sure if "raw_" is the
best choice.

p4raw-id: //depot/perl@27513

configpm

index 1bd2e38..46b1972 100755 (executable)
--- 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