Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

make 02packages min lines option

  • Loading branch information...
commit 79744cbf0606e2f4d84d1d13e509f42703309fe6 1 parent f58956a
@rjbs rjbs authored
Showing with 5 additions and 1 deletion.
  1. +1 −0  lib/PAUSE.pm
  2. +4 −1 lib/PAUSE/mldistwatch.pm
View
1  lib/PAUSE.pm
@@ -80,6 +80,7 @@ $PAUSE::Config ||=
MLROOT => '/home/ftp/pub/PAUSE/authors/id/', # originally module list root
ML_CHOWN_USER => qq{UNSAFE},
ML_MAILER => 'sendmail',
+ ML_MIN_INDEX_LINES => 1_000, # 02packages must be this long
ML_MIN_FILES => 20_000, # must be this many files to run mldistwatch
MOD_DATA_SOURCE_NAME => "dbi:mysql:mod",
NO_SUCCESS_BREAK => 900,
View
5 lib/PAUSE/mldistwatch.pm
@@ -581,7 +581,10 @@ sub rewrite02 {
push @listing02, sprintf "%-${one}s %${two}s %s\n", @row;
}
my $numlines = @listing02;
- die "Absurd small number of lines" unless $numlines > 1000;
+
+ die "Absurd small number of lines"
+ unless $numlines > $PAUSE::Config->{ML_MIN_INDEX_LINES};
+
my $header = qq{File: 02packages.details.txt
URL: http://www.perl.com/CPAN/modules/02packages.details.txt
Description: Package names found in directory \$CPAN/authors/id/
Please sign in to comment.
Something went wrong with that request. Please try again.