diff --git a/Shorewall/Perl/Shorewall/Chains.pm b/Shorewall/Perl/Shorewall/Chains.pm index e89b9f912..d6c85759c 100644 --- a/Shorewall/Perl/Shorewall/Chains.pm +++ b/Shorewall/Perl/Shorewall/Chains.pm @@ -523,7 +523,6 @@ sub trace( $$$$ ) { # # Chain reference , Command, ... # - sub add_commands ( $$;@ ) { my $chainref = shift @_; my $indentation = ' ' x $chainref->{cmdlevel}; @@ -620,7 +619,6 @@ sub handle_port_list( $$$$$$ ) { # # This much simpler function splits a rule with an icmp type list into discrete rules # - sub handle_icmptype_list( $$$$ ) { my ($chainref, $first, $types, $rest) = @_; my @ports = split ',', $types; @@ -820,7 +818,7 @@ sub decrement_reference_count( $$ ) { # The rules generated by interface options are added to the interfaces's input chain and # forward chain. Shorewall::Rules::generate_matrix() may decide to move those rules to # the head of a rules chain (behind any blacklist rule already there). - +# sub move_rules( $$ ) { my ($chain1, $chain2 ) = @_; @@ -872,7 +870,6 @@ sub move_rules( $$ ) { # # Replace the jump at the end of one chain (chain2) with the rules from another chain (chain1). # - sub copy_rules( $$;$ ) { my ($chain1, $chain2, $nojump ) = @_;