X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/33459055ff280d2a3b935d256531a576b162ec79..64aa0685a40fd2a9d443256e8bbb212e76a0828e:/lib/Test/Builder.pm

diff --git a/lib/Test/Builder.pm b/lib/Test/Builder.pm
index 99ec519..1378242 100644
--- a/lib/Test/Builder.pm
+++ b/lib/Test/Builder.pm
@@ -8,7 +8,7 @@ $^C ||= 0;
 
 use strict;
 use vars qw($VERSION $CLASS);
-$VERSION = 0.03;
+$VERSION = 0.05;
 $CLASS = __PACKAGE__;
 
 my $IsVMS = $^O eq 'VMS';
@@ -544,6 +544,9 @@ sub no_ending {
 
 Controlling where the test output goes.
 
+It's ok for your test to change where STDOUT and STDERR point to,
+Test::Builder's default output settings will not be affected.
+
 =over 4
 
 =item B<diag>
@@ -554,7 +557,7 @@ Prints out the given $message.  Normally, it uses the failure_output()
 handle, but if this is for a TODO test, the todo_output() handle is
 used.
 
-Output will be indented and prepended with a # as not to interfere
+Output will be indented and marked with a # so as not to interfere
 with test output.
 
 We encourage using this rather than calling print directly.
@@ -564,7 +567,7 @@ We encourage using this rather than calling print directly.
 sub diag {
     my($self, @msgs) = @_;
 
-    # Prevent printing headers when compiling (ie. -c)
+    # Prevent printing headers when compiling (i.e. -c)
     return if $^C;
 
     # Escape each line with a #.
@@ -951,14 +954,24 @@ END {
 
 At this point, Test::Simple and Test::More are your best examples.
 
-=head1 AUTHOR
+=head1 SEE ALSO
+
+Test::Simple, Test::More, Test::Harness
+
+=head1 AUTHORS
 
 Original code by chromatic, maintained by Michael G Schwern
 E<lt>schwern@pobox.comE<gt>
 
-=head1 SEE ALSO
+=head1 COPYRIGHT
 
-Test::Simple, Test::More, Test::Harness
+Copyright 2001 by chromatic E<lt>chromatic@wgz.orgE<gt>,
+                  Michael G Schwern E<lt>schwern@pobox.comE<gt>.
+
+This program is free software; you can redistribute it and/or 
+modify it under the same terms as Perl itself.
+
+See L<http://www.perl.com/perl/misc/Artistic.html>
 
 =cut