Preserve space after <nick>: in the AUTHORS section of DBIx/Class.pod
[dbsrgits/DBIx-Class-Historic.git] / 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;