Boldly take the author nicknames bold
Peter Rabbitson
9 years ago
| 186 | 186 |
talexb: Alex Beamish <talexb@gmail.com>
|
| 187 | 187 |
tamias: Ronald J Kimball <rjk@tamias.net>
|
| 188 | 188 |
TBSliver: Tom Bloor <t.bloor@shadowcat.co.uk>
|
| 189 | |
teejay : Aaron Trevena <teejay@cpan.org>
|
|
189 |
teejay: Aaron Trevena <teejay@cpan.org>
|
| 190 | 190 |
theorbtwo: James Mastros <james@mastros.biz>
|
| 191 | 191 |
Thomas Kratz <tomk@cpan.org>
|
| 192 | 192 |
timbunce: Tim Bunce <tim.bunce@pobox.com>
|
| 305 | 305 |
|
| 306 | 306 |
=over
|
| 307 | 307 |
|
| 308 | |
ribasushi: Peter Rabbitson <ribasushi@cpan.org>
|
|
308 |
B<ribasushi>: Peter Rabbitson <ribasushi@cpan.org>
|
| 309 | 309 |
(present day maintenance and controlled evolution)
|
| 310 | 310 |
|
| 311 | |
castaway: Jess Robinson <castaway@desert-island.me.uk>
|
|
311 |
B<castaway>: Jess Robinson <castaway@desert-island.me.uk>
|
| 312 | 312 |
(lions share of the reference documentation and manuals)
|
| 313 | 313 |
|
| 314 | |
mst: Matt S Trout <mst@shadowcat.co.uk> (project founder -
|
|
314 |
B<mst>: Matt S Trout <mst@shadowcat.co.uk> (project founder -
|
| 315 | 315 |
original idea, architecture and implementation)
|
| 316 | 316 |
|
| 317 | 317 |
=back
|
| 8 | 8 |
open (my $fh, '<:raw', 'AUTHORS') or die "Unable to open AUTHORS - can't happen: $!\n";
|
| 9 | 9 |
map { chomp; ( ( ! $_ or $_ =~ /^\s*\#/ ) ? () : $_ ) } <$fh>;
|
| 10 | 10 |
} or die "Known AUTHORS file seems empty... can't happen...";
|
|
11 |
|
|
12 |
$_ =~ s!^ ( [^\:]+ ) : \s !B<$1>:!x
|
|
13 |
for @known_authors;
|
| 11 | 14 |
|
| 12 | 15 |
$_ =~ s!( \b https? :// [^\s\>]+ )!L<$1|$1>!x
|
| 13 | 16 |
for @known_authors;
|
| 18 | 18 |
} or die "Known AUTHORS file seems empty... can't happen...";
|
| 19 | 19 |
|
| 20 | 20 |
is_deeply (
|
| 21 | |
[ grep { /^\s/ } @known_authors ],
|
|
21 |
[ grep { /^\s/ or /\s\s/ } @known_authors ],
|
| 22 | 22 |
[],
|
| 23 | |
"No entries with leading space",
|
|
23 |
"No entries with leading or doubled space",
|
|
24 |
);
|
|
25 |
|
|
26 |
is_deeply (
|
|
27 |
[ grep { / \:[^\s\/] /x or /^ [^:]*? \s+ \: /x } @known_authors ],
|
|
28 |
[],
|
|
29 |
"No entries with malformed nicks",
|
| 24 | 30 |
);
|
| 25 | 31 |
|
| 26 | 32 |
is_deeply (
|