summaryrefslogtreecommitdiffstats
path: root/bin
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-09-03 02:18:35 -0400
committerJesse Luehrs <doy@tozt.net>2013-09-03 02:18:45 -0400
commit59618e9ddb2836a1475d6cdb874ffb92120e9a31 (patch)
tree8b91b3a42c108190e61c27a28b1c687981f24f2c /bin
parented89f6bc905644177795c8689f808eb18a26f1c0 (diff)
downloadconf-59618e9ddb2836a1475d6cdb874ffb92120e9a31.tar.gz
conf-59618e9ddb2836a1475d6cdb874ffb92120e9a31.zip
a few more fixes
Diffstat (limited to 'bin')
-rwxr-xr-xbin/lint-dist5
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) {