holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests 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)" : ''; my $currentlineinfo = $currentfile ? " : $currentfilename (line $linenumber)" : '';
our @localtime; our @localtime;
$| = 1; $| = 1; #Reset output buffering (flush any partially filled buffers).
if ( $log ) { if ( $log ) {
@localtime = localtime; @localtime = localtime;
@ -676,7 +676,7 @@ sub warning_message
print $log " WARNING: @_$currentlineinfo\n" if $log; print $log " WARNING: @_$currentlineinfo\n" if $log;
} }
$| = 0; $| = 0; #Re-allow output buffering
} }
sub cleanup() { sub cleanup() {
@ -701,7 +701,7 @@ sub fatal_error {
my $linenumber = $currentlinenumber || 1; my $linenumber = $currentlinenumber || 1;
my $currentlineinfo = $currentfile ? " : $currentfilename (line $linenumber)" : ''; my $currentlineinfo = $currentfile ? " : $currentfilename (line $linenumber)" : '';
$| = 1; $| = 1; #Reset output buffering (flush any partially filled buffers).
if ( $log ) { if ( $log ) {
our @localtime = localtime; our @localtime = localtime;