From 1544c0b2b15314ae4a132a3f770a196157c99cc9 Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 31 Aug 2009 10:41:08 -0700
Subject: [PATCH] Add some comments concerning "$|"

---
 Shorewall/Perl/Shorewall/Config.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 6c330926d..16596756f 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -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;