Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24585/lib/Module/Build
Modified Files:
Compat.pm
Log Message:
Integrate from branch.
Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- Compat.pm 28 Dec 2004 05:16:35 -0000 1.59
+++ Compat.pm 7 Jan 2005 10:15:53 -0000 1.60
@@ -135,8 +135,8 @@
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;
+ # Do tilde-expansion if it looks like a tilde prefixed path
+ ( $val ) = glob( $val ) if $val =~ /^~/;
if (exists $makefile_to_build{$key}) {
my $trans = $makefile_to_build{$key};
|
