From c653d9ce832fb350ce44fff3e13589aabaa147d5 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sat, 8 Jun 2013 10:02:19 -0700 Subject: [PATCH] Only issue one 'unreachable' warning per chain. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Chains.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm index 89ffbd511..43832c113 100644 --- a/Shorewall/Perl/Shorewall/Chains.pm +++ b/Shorewall/Perl/Shorewall/Chains.pm @@ -6535,7 +6535,7 @@ sub unreachable_warning( $$ ) { my ( $ignore, $chainref ) = @_; unless ( $ignore ) { if ( $chainref->{complete} ) { - warning_message "Any rules generated by this entry are unreachable and will therefore be discarded"; + warning_message "Any rules generated by this entry are unreachable and will therefore be discarded" unless $chainref->{unreachable_warned}++; return 1; } }