maint/gen_pod_authors

   1 #!/usr/bin/env perl
   2
   3 use warnings;
   4 use strict;
   5
   6 # we will be outputting *ENCODED* utf8, hence the raw open below
   7 # the file is already sanity-checked by xt/authors.t
   8 my @known_authors = do {
   9   open (my $fh, '<:raw', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
  10   map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
  11 } or die "Known AUTHORS file seems empty... can't happen...";
  12
  13 $_ =~ s!^ ( [^\:]+ ) : \s !B<$1>: !x
  14   for @known_authors;
  15
  16 $_ =~ s!( \b https? :// [^\s\>]+ )!L<$1|$1>!x
  17   for @known_authors;
  18
  19 print join "\n\n",
  20   '=encoding utf8',
  21   '=over',
  22   @known_authors,
  23   '=back',
  24   '',
  25 ;
  26
  27 1;