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

Simplify an assertion

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-04-11 14:27:48 -07:00
parent e880d2fd84
commit ae9f538ef8
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Shorewall/Perl/Shorewall/Config.pm
View File

@ -1950,9 +1950,7 @@ sub shorewall {
sub first_entry( $ ) { sub first_entry( $ ) {
$first_entry = $_[0]; $first_entry = $_[0];
my $reftype = reftype $first_entry; my $reftype = reftype $first_entry;
if ( $reftype ) { assert( $reftype eq 'CODE' ) if $reftype;
fatal_error "Invalid argument to first_entry()" unless $reftype eq 'CODE';
}
} }
sub read_a_line(;$); sub read_a_line(;$);