Generate error on port == 0

This commit is contained in:
Tom Eastep 2009-11-22 08:36:40 -08:00
parent 720442b400
commit d4ff629fd8
2 changed files with 3 additions and 2 deletions

View File

@ -72,7 +72,7 @@ our @EXPORT = qw( ALLIPv4
validate_icmp6
);
our @EXPORT_OK = qw( );
our $VERSION = '4.4_1';
our $VERSION = '4.4_5';
#
# Some IPv4/6 useful stuff
@ -302,6 +302,7 @@ sub validate_port( $$ ) {
my $value;
if ( $port =~ /^(\d+)$/ ) {
fatal_error "Invalid Port Number (0)" unless $port;
return $port if $port <= 65535;
} else {
$proto = proto_name $proto if $proto =~ /^(\d+)$/;

View File

@ -46,7 +46,7 @@ our @EXPORT = qw( process_tos
compile_stop_firewall
);
our @EXPORT_OK = qw( process_rule process_rule1 initialize );
our $VERSION = '4.4_4';
our $VERSION = '4.4_5';
#
# Set to one if we find a SECTION