Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2611/lib/Module/Build
Modified Files:
Tag: release-0_26_branch
Compat.pm
Log Message:
Integrate from mainline
Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57
retrieving revision 1.57.2.1
diff -C2 -d -r1.57 -r1.57.2.1
*** Compat.pm 30 Jul 2004 15:20:11 -0000 1.57
--- Compat.pm 29 Dec 2004 02:54:36 -0000 1.57.2.1
***************
*** 135,138 ****
--- 135,142 ----
my ($key, $val) = ($arg =~ /^(\w+)=(.+)/ ? ($1, $2) :
die "Malformed argument '$arg'");
+
+ # Do tilde-expansion like MakeMaker does, more or less
+ $val =~ s{^~(\w*)} { (getpwnam($1 || (getpwuid $>)[0]))[7] || "~$1" }e;
+
if (exists $makefile_to_build{$key}) {
my $trans = $makefile_to_build{$key};
|
