From b8951259bd31605dd2de2c5a54d0e64f0d29d2af Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Tue, 30 Aug 2011 16:55:44 -0700 Subject: [PATCH] Avoid emitting out-of-function statements. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tc.pm | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index 290e378ad..d80ef17f9 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -1259,14 +1259,10 @@ sub process_tc_filter() { progress_message " IPv4 TC Filter \"$currentline\" $done"; $currentline =~ s/\s+/ /g; - - save_progress_message_short qq(' IPv4 TC Filter \"$currentline\" defined.'); } else { progress_message " IPv6 TC Filter \"$currentline\" $done"; $currentline =~ s/\s+/ /g; - - save_progress_message_short qq(' IPv6 TC Filter \"$currentline\" defined.'); } emit ''; @@ -1283,7 +1279,7 @@ sub process_tcfilters() { if ( $fn ) { my @family = ( $family ); - first_entry( sub { progress_message2 "$doing $fn..."; save_progress_message q("Adding TC Filters"); } ); + first_entry( "$doing $fn..." ); while ( read_a_line ) { if ( $currentline =~ /^\s*IPV4\s*$/ ) {