[Module-build-checkins] Module-Build/t/lib DistGen.pm,1.3,1.4
Status: Beta
Brought to you by:
kwilliams
|
From: Randy W. S. <si...@us...> - 2005-06-23 07:31:40
|
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 { |