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

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

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

Modified Files:
      Tag: release-0_26_branch
	Compat.pm 
Log Message:
Windows does not support the concept of tilde-expansion, nor does it support the getpw* routines, so we skip the tilde expansion code and tests related to it.

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57.2.1
retrieving revision 1.57.2.2
diff -C2 -d -r1.57.2.1 -r1.57.2.2
*** Compat.pm	29 Dec 2004 02:54:36 -0000	1.57.2.1
--- Compat.pm	6 Jan 2005 04:08:44 -0000	1.57.2.2
***************
*** 137,141 ****
  
      # 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}) {
--- 137,143 ----
  
      # 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}) {