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
|
