Change 27513 by [EMAIL PROTECTED] on 2006/03/15 23:02:49
Make the original versions of relocated paths available from
%Config::Config with the prefix "raw_". Not sure if "raw_" is the
best choice.
Affected files ...
... //depot/perl/configpm#78 edit
Differences ...
==== //depot/perl/configpm#78 (xtext) ====
Index: perl/configpm
--- perl/configpm#77~27491~ 2006-03-13 15:13:23.000000000 -0800
+++ perl/configpm 2006-03-15 15:02:49.000000000 -0800
@@ -443,7 +443,9 @@
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
End of Patch.
