[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.419,1.420

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

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

Modified Files:
	Base.pm 
Log Message:
Add detildefication

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.419
retrieving revision 1.420
diff -u -d -r1.419 -r1.420
--- Base.pm	7 Jun 2005 21:40:11 -0000	1.419
+++ Base.pm	9 Jun 2005 01:46:53 -0000	1.420
@@ -124,7 +124,12 @@
     }
   }
 
-
+  # De-tilde-ify any path parameters
+  for (qw(prefix install_base install_path install_dest)) {
+    next unless exists $p->{$_} and defined $p->{$_};
+    ($p->{$_}) = glob($p->{$_}) if $p->{$_} =~ /^~/;
+  }
+  
   # The following warning could be unnecessary if the user is running
   # an embedded perl, but there aren't too many of those around, and
   # embedded perls aren't usually used to install modules, and the