Commit | Line | Data |
3440100b |
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!( \b https? :// [^\s\>]+ )!L<$1|$1>!x |
14 | for @known_authors; |
15 | |
16 | print join "\n\n", |
17 | '=encoding utf8', |
18 | '=over', |
19 | @known_authors, |
20 | '=back', |
21 | '', |
22 | ; |
23 | |
24 | 1; |