extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-22 07:33:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add some comments concerning "$|"

Browse Source
This commit is contained in:
Tom Eastep 2009-08-31 10:41:08 -07:00
parent d368d80a12
commit 1544c0b2b1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Shorewall/Perl/Shorewall/Config.pm
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;