Minor tweaks.
* Update copyright date.
* Adjust `t/spaced-directives.t`. It still skips all, but at least it shows what it should expect to find, more or less, and a typo is fixed.
David E. Wheeler
14 years ago
267 | 267 |
|
268 | 268 |
=head1 AUTHOR
|
269 | 269 |
|
270 | |
Currently maintained by Andy Lester, C<< <andy at petdance.com> >>.
|
|
270 |
Currently maintained by David E. Wheeler, C<< <david@justatheory.com> >>.
|
271 | 271 |
|
272 | 272 |
Originally by brian d foy.
|
273 | 273 |
|
|
274 |
Maintainer emeritus: Andy Lester, C<< <andy at petdance.com> >>.
|
|
275 |
|
274 | 276 |
=head1 ACKNOWLEDGEMENTS
|
275 | 277 |
|
276 | 278 |
Thanks to
|
|
279 |
Andy Lester,
|
277 | 280 |
David Wheeler,
|
278 | 281 |
Paul Miller
|
279 | 282 |
and
|
|
282 | 285 |
|
283 | 286 |
=head1 COPYRIGHT
|
284 | 287 |
|
285 | |
Copyright 2006-2009, Andy Lester, All Rights Reserved.
|
|
288 |
Copyright 2006-2010, Andy Lester. Some Rights Reserved.
|
286 | 289 |
|
287 | 290 |
You may use, modify, and distribute this package under the terms
|
288 | 291 |
as the Artistic License v2.0 or GNU Public License v2.0.
|
11 | 11 |
|
12 | 12 |
BAD: {
|
13 | 13 |
my $name = 'Test name: Something not likely to accidentally occur!';
|
14 | |
my $file = 't/spaced-rectives.pod';
|
|
14 |
my $file = 't/spaced-directives.pod';
|
15 | 15 |
test_out( "not ok 1 - $name" );
|
16 | 16 |
pod_file_ok( $file, $name );
|
17 | 17 |
test_fail(-1);
|
18 | |
test_diag( "$file (9): Unknown directive: =over4",);
|
19 | |
test_diag( "$file (13): Unknown directive: =under",);
|
|
18 |
test_diag('*** WARNING: line containing nothing but whitespace in paragraph at line 11 in file t/spaced-directives.pod');
|
|
19 |
test_diag('*** WARNING: line containing nothing but whitespace in paragraph at line 17 in file t/spaced-directives.pod');
|
20 | 20 |
test_test( "$name is bad" );
|
21 | 21 |
}
|