diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-09-03 02:18:35 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-09-03 02:18:45 -0400 |
commit | 59618e9ddb2836a1475d6cdb874ffb92120e9a31 (patch) | |
tree | 8b91b3a42c108190e61c27a28b1c687981f24f2c /bin | |
parent | ed89f6bc905644177795c8689f808eb18a26f1c0 (diff) | |
download | conf-59618e9ddb2836a1475d6cdb874ffb92120e9a31.tar.gz conf-59618e9ddb2836a1475d6cdb874ffb92120e9a31.zip |
a few more fixes
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/lint-dist | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/bin/lint-dist b/bin/lint-dist index 411b027..a2970ba 100755 --- a/bin/lint-dist +++ b/bin/lint-dist @@ -186,6 +186,8 @@ my @checks = ( my $kwalitee = $_[0]->get_json( 'http://cpants.cpanauthors.org/dist/' . $_[0]->name . '.json' ); + return ['Most recent dist has not yet been processed.'] + if $kwalitee->{recent}[0]{distv} ne $_[0]->distvname; # - use_strict and use_warnings don't notice Moose::Exporter, or # things that use Moose::Exporter, so they will give a lot of @@ -275,6 +277,7 @@ package Dist::To::Lint { sub dist { shift->{dist} } sub name { shift->dist->dist } + sub distvname { shift->dist->distvname } sub lint { @{ shift->{lint} } } sub add_lint { my $self = shift; @@ -402,7 +405,7 @@ package Dist::To::Lint { sub report { my $self = shift; - say $self->name; + say $self->distvname; say "====================="; if ($self->lint) { |