send a skip report for .pm.gz files

rjbs · Mar 15, 2014 · e663ec6 · e663ec6
1 parent e992a81
commit e663ec6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 0 deletions.
diff --git a/lib/PAUSE/dist.pm b/lib/PAUSE/dist.pm
@@ -316,6 +316,7 @@ sub examine_dist {
     $self->verbose(1,"Dist '$dist' is a single-.pm-file upload\n");
     $suffix = "N/A";
     $skip   = 1;
+    $self->{SKIP_REPORT} = PAUSE::mldistwatch::Constants::EBAREPMFILE;
   } elsif ($dist =~ /\.zip$/) {
     $suffix = "zip";
     my $unzipbin = $self->{UNZIPBIN};

diff --git a/lib/PAUSE/mldistwatch/Constants.pm b/lib/PAUSE/mldistwatch/Constants.pm
@@ -11,12 +11,14 @@ use constant EOPENFILE => 21;
 use constant EMISSPERM => 20;
 use constant EPARSEVERSION => 10;
 use constant EMETAUNSTABLE => 6;
+use constant EBAREPMFILE => 5;
 use constant EOLDRELEASE => 4;
 use constant EMTIMEFALLING => 3; # deprecated after rev 478
 use constant EVERFALLING => 2;
 use constant OK => 1;
 
 our $heading = {
+  EBAREPMFILE() => "Bare .pm files are not indexed",
   EDBCONFLICT() => "Conflicting record found in index",
   EDBERR() => "Database error",
   EDUALOLDER() => "An older dual-life module stays reference",