Change 20025 by [EMAIL PROTECTED] on 2003/07/06 07:48:01
Make the 'slow ok' feature optional.
Affected files ...
... //depot/perl/lib/Test/Harness.pm#75 edit
Differences ...
==== //depot/perl/lib/Test/Harness.pm#75 (text) ====
Index: perl/lib/Test/Harness.pm
--- perl/lib/Test/Harness.pm#74~20023~ Sun Jul 6 00:29:22 2003
+++ perl/lib/Test/Harness.pm Sun Jul 6 00:48:01 2003
@@ -36,6 +36,8 @@
my $Files_In_Dir = $ENV{HARNESS_FILELEAK_IN_DIR};
+my $Ok_Slow = $ENV{HARNESS_OK_SLOW};
+
$Strap = Test::Harness::Straps->new;
@ISA = ('Exporter');
@@ -745,7 +747,7 @@
# For slow connections, we save lots of bandwidth by printing only once
# per second.
sub _print_ml_less {
- if( $Last_ML_Print != time ) {
+ if( !$Ok_Slow || $Last_ML_Print != time ) {
_print_ml(@_);
$Last_ML_Print = time;
}
@@ -1047,6 +1049,12 @@
output more frequent progress messages using carriage returns. Some
consoles may not handle carriage returns properly (which results in a
somewhat messy output).
+
+=item C<HARNESS_OK_SLOW>
+
+If true, the C<ok> messages are printed out only every second.
+This reduces output and therefore may for example help testing
+over slow connections.
=item C<HARNESS_PERL_SWITCHES>
End of Patch.
