[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.59,1.60

[Randy W. S. <si...@us...>]

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};