From b451e10dd89e3f0136cc0c83797507fb9308525e Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 24 Sep 2012 14:25:31 -0700 Subject: [PATCH] More fixes for HL and TTL Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index 53877f42f..a0b8de455 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -402,7 +402,7 @@ sub process_tc_rule( ) { my $param = $1; - fatal_error "Invalid TTL specification( $cmd )" unless $2 && ( $param = abs $param ) < 256; + fatal_error "Invalid TTL specification( $cmd )" unless ( $1 eq $2 || $2 != 0 ) && ( $param = abs $param ) < 256; if ( $1 =~ /^\+/ ) { $target .= " --ttl-inc $param"; @@ -430,7 +430,7 @@ sub process_tc_rule( ) { my $param = $1; - fatal_error "Invalid HL specification( $cmd )" unless $2 && ( $param = abs $param ) < 256; + fatal_error "Invalid HL specification( $cmd )" unless ( $1 eq $2 || $2 != 0 ) && ( $param = abs $param ) < 256; if ( $1 =~ /^\+/ ) { $target .= " --hl-inc $param";