extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-26 09:33:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add some comments and remove extra whitespace

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-07-25 06:56:05 -07:00
parent 215e923562
commit ecd2e2276e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Shorewall/Perl/Shorewall/Chains.pm
View File

@ -788,7 +788,10 @@ sub format_rule( $$;$ ) {
}
#
# Merge two rules.
# Merge two rules - If the target of the merged rule is a chain, a reference to its
# chain table entry is returned. It is the caller's responsibility
# to handle reference counting. If the target is a builtin, '' is
# returned.
#
sub merge_rules( $$$ ) {
my ( $tableref, $toref, $fromref ) = @_;
@ -813,13 +816,12 @@ sub merge_rules( $$$ ) {
set_rule_option( $toref, 'policy', $fromref->{policy} ) if exists $fromref->{policy};
unless ( $toref->{comment} ) {
$toref->{comment} = $fromref->{comment} if exists $fromref->{comment};
}
$toref->{target} = $target;
$toref->{target} = $target;
if ( my $targetref = $tableref->{$target} ) {
return $targetref;
} else {
@ -873,7 +875,7 @@ sub add_commands ( $$;@ ) {
}
#
# Transform the passed rule and add it to the end of the passed chain's rule list
# Transform the passed rule and add it to the end of the passed chain's rule list.
#
sub push_rule( $$ ) {
my $chainref = $_[0];