Update of /cvsroot/module-build/Module-Build/t/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15171/t/lib
Modified Files:
DistGen.pm
Log Message:
Store the absolute path of the created distribution.
Index: DistGen.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/lib/DistGen.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- DistGen.pm 15 Apr 2005 03:10:54 -0000 1.3
+++ DistGen.pm 23 Jun 2005 07:31:27 -0000 1.4
@@ -20,7 +20,7 @@
my %options = @_;
$options{name} ||= 'Simple';
- $options{dir} ||= File::Spec->curdir();
+ $options{dir} ||= Cwd::cwd();
my %data = (
skip_manifest => 0,
@@ -222,6 +222,7 @@
my $here = Cwd::abs_path();
my $there = File::Spec->rel2abs( $self->dirname() );
+
if ( -d $there ) {
chdir( $there ) or die "Can't change directory to '$there'\n";
} else {
|
