extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-26 04:32:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Call handle_first_entry in the warning/error-message generators.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2013-01-26 07:30:50 -08:00
parent b8cc9c5a6a
commit 7bc66da663
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1088,6 +1088,8 @@ sub currentlineinfo() {
} }
} }
sub handle_first_entry();
# #
# Issue a Warning Message # Issue a Warning Message
# #
@ -1096,6 +1098,8 @@ sub warning_message
my $currentlineinfo = currentlineinfo; my $currentlineinfo = currentlineinfo;
our @localtime; our @localtime;
handle_first_entry if $first_entry;
$| = 1; #Reset output buffering (flush any partially filled buffers). $| = 1; #Reset output buffering (flush any partially filled buffers).
if ( $log ) { if ( $log ) {
@ -1180,6 +1184,8 @@ sub cleanup() {
sub fatal_error { sub fatal_error {
my $currentlineinfo = currentlineinfo; my $currentlineinfo = currentlineinfo;
handle_first_entry if $first_entry;
$| = 1; #Reset output buffering (flush any partially filled buffers). $| = 1; #Reset output buffering (flush any partially filled buffers).
if ( $log ) { if ( $log ) {
@ -1208,6 +1214,8 @@ sub fatal_error {
} }
sub fatal_error1 { sub fatal_error1 {
handle_first_entry if $first_entry;
$| = 1; $| = 1;
if ( $log ) { if ( $log ) {