[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.57.2.2,1.57.2.3

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

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32068/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Compat.pm 
Log Message:
Use perl's glob() function to implement tilde expansion since it works better across platforms, and update related tests. [suggested by Yitzchak Scott-Thoennes]

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57.2.2
retrieving revision 1.57.2.3
diff -C2 -d -r1.57.2.2 -r1.57.2.3
*** Compat.pm	6 Jan 2005 04:08:44 -0000	1.57.2.2
--- Compat.pm	7 Jan 2005 08:14:57 -0000	1.57.2.3
***************
*** 136,143 ****
  		       die "Malformed argument '$arg'");
  
!     # Do tilde-expansion like MakeMaker does, more or less
!     unless ( Module::Build->os_type eq 'Windows' ) {
!       $val =~ s{^~(\w*)} { (getpwnam($1 || (getpwuid $>)[0]))[7] || "~$1" }e;
!     }
  
      if (exists $makefile_to_build{$key}) {
--- 136,141 ----
  		       die "Malformed argument '$arg'");
  
!     # Do tilde-expansion if it looks like a tilde prefixed path
!     ( $val ) = glob( $val ) if $val =~ /^~/;
  
      if (exists $makefile_to_build{$key}) {