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

Prevent suprious 'fi' in filter output

Browse Source
This commit is contained in:
Tom Eastep 2010-11-14 10:51:42 -08:00
parent 0e5dc41d31
commit 5d0e719d03
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Shorewall/Perl/Shorewall/Tc.pm
View File

@ -1445,11 +1445,11 @@ sub setup_traffic_shaping() {
$classids{$classid}=$device; $classids{$classid}=$device;
$device = physical_name $device; $device = physical_name $device;
my $dev = chain_base $device;
my $priority = $tcref->{priority} << 8;
my $parent = in_hexp $tcref->{parent};
unless ( $config{TC_ENABLED} eq 'Shared' ) { unless ( $config{TC_ENABLED} eq 'Shared' ) {
my $dev = chain_base $device;
my $priority = $tcref->{priority} << 8;
my $parent = in_hexp $tcref->{parent};
if ( $lastdevice ne $device ) { if ( $lastdevice ne $device ) {
if ( $lastdevice ) { if ( $lastdevice ) {
pop_indent; pop_indent;
@ -1501,11 +1501,13 @@ sub setup_traffic_shaping() {
save_progress_message_short qq(" TC Class $classid defined."); save_progress_message_short qq(" TC Class $classid defined.");
emit ''; emit '';
if ( $lastdevice ) {
pop_indent;
emit "fi\n";
}
} }
}
if ( $lastdevice ) {
pop_indent;
emit "fi\n";
} }
process_tcfilters; process_tcfilters;