[Module-build-checkins] Module-Build/lib/Module/Build Compat.pm,1.57,1.58

[Ken W. <kwi...@us...>]

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

Modified Files:
	Compat.pm 
Log Message:
Do tilde-expansion on args to Makefile.PL

Index: Compat.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Compat.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -C2 -d -r1.57 -r1.58
*** Compat.pm	30 Jul 2004 15:20:11 -0000	1.57
--- Compat.pm	28 Dec 2004 05:13:50 -0000	1.58
***************
*** 135,138 ****
--- 135,142 ----
      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;
+ 
      if (exists $makefile_to_build{$key}) {
        my $trans = $makefile_to_build{$key};