Add some comments concerning "$|"

This commit is contained in:
Tom Eastep 2009-08-31 10:41:08 -07:00
parent d368d80a12
commit 1544c0b2b1

View File

@ -661,7 +661,7 @@ sub warning_message
my $currentlineinfo = $currentfile ? " : $currentfilename (line $linenumber)" : '';
our @localtime;
$| = 1;
$| = 1; #Reset output buffering (flush any partially filled buffers).
if ( $log ) {
@localtime = localtime;
@ -676,7 +676,7 @@ sub warning_message
print $log " WARNING: @_$currentlineinfo\n" if $log;
}
$| = 0;
$| = 0; #Re-allow output buffering
}
sub cleanup() {
@ -701,7 +701,7 @@ sub fatal_error {
my $linenumber = $currentlinenumber || 1;
my $currentlineinfo = $currentfile ? " : $currentfilename (line $linenumber)" : '';
$| = 1;
$| = 1; #Reset output buffering (flush any partially filled buffers).
if ( $log ) {
our @localtime = localtime;