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}) {
|
