holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Dead code removal

Browse Source
This commit is contained in:
Tom Eastep 2010-12-26 12:08:10 -08:00
parent d1d9518c42
commit d8bcbffb88
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Shorewall/Perl/Shorewall/Rules.pm
View File

@ -203,15 +203,7 @@ sub new_action( $ ) {
my $action = $_[0]; my $action = $_[0];
$actions{$action} = { actchain => '', requires => {} }; $actions{$action} = { actchain => '' };
}
#
# Record a 'requires' relationship between a pair of actions.
#
sub add_requiredby ( $$ ) {
my ($requiredby , $requires ) = @_;
$actions{$requires}{requires}{$requiredby} = 1;
} }
# #
@ -597,7 +589,6 @@ sub process_actions3 () {
'Limit' => \&Limit, ); 'Limit' => \&Limit, );
while ( my ( $wholeaction, $chainref ) = each %usedactions ) { while ( my ( $wholeaction, $chainref ) = each %usedactions ) {
assert( $chainref->{name} );
my ( $action, $level, $tag, $param ) = split /:/, $wholeaction; my ( $action, $level, $tag, $param ) = split /:/, $wholeaction;
if ( $targets{$action} & BUILTIN ) { if ( $targets{$action} & BUILTIN ) {