Dist-Zilla-BeLike-CSJEWELL

changeset 20:d1177f5efb12

Perltidy run.
author Curtis Jewell <csjewell@cpan.org>
date Fri Aug 13 11:42:48 2010 -0600 (2010-08-13)
parents 9cf48703840d
children b91341d98f06
files lib/Dist/Zilla/Plugin/CSJEWELL/BeforeBuild.pm lib/Dist/Zilla/Plugin/CSJEWELL/FTPUploadToOwnSite.pm
line diff
     1.1 --- a/lib/Dist/Zilla/Plugin/CSJEWELL/BeforeBuild.pm	Fri Aug 13 11:32:54 2010 -0600
     1.2 +++ b/lib/Dist/Zilla/Plugin/CSJEWELL/BeforeBuild.pm	Fri Aug 13 11:42:48 2010 -0600
     1.3 @@ -12,15 +12,16 @@
     1.4  sub before_build {
     1.5  	my ($self) = @_;
     1.6  
     1.7 -	# This has the same effect as 
     1.8 -	#   "perl Build.PL && Build manifest && Build distmeta", 
     1.9 +	# This has the same effect as
    1.10 +	#   "perl Build.PL && Build manifest && Build distmeta",
    1.11  	# only in code.
    1.12  	my $builder = Module::Build->new_from_context();
    1.13 +
    1.14  	# Our ACTION_distmeta depends on 'manifest', so runs it.
    1.15  	$builder->ACTION_distmeta();
    1.16  
    1.17  	return 1;
    1.18 -}
    1.19 +} ## end sub before_build
    1.20  
    1.21  __PACKAGE__->meta()->make_immutable();
    1.22  no Moose;
     2.1 --- a/lib/Dist/Zilla/Plugin/CSJEWELL/FTPUploadToOwnSite.pm	Fri Aug 13 11:32:54 2010 -0600
     2.2 +++ b/lib/Dist/Zilla/Plugin/CSJEWELL/FTPUploadToOwnSite.pm	Fri Aug 13 11:42:48 2010 -0600
     2.3 @@ -37,9 +37,10 @@
     2.4  	my ( $self, $archive ) = @_;
     2.5  
     2.6  	my $site     = $self->site();
     2.7 -	my $siteinfo = Net::Netrc->lookup( $site );
     2.8 -	if (not $siteinfo) {
     2.9 -		$self->log_fatal("Could not get information for $site from .netrc.");
    2.10 +	my $siteinfo = Net::Netrc->lookup($site);
    2.11 +	if ( not $siteinfo ) {
    2.12 +		$self->log_fatal(
    2.13 +			"Could not get information for $site from .netrc.");
    2.14  	}
    2.15  	my ( $user, $password, undef ) = $siteinfo->lpa();
    2.16