From bac0f36818b1bfb44eba827aebd173c2ae37235f Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 24 Sep 2012 16:23:15 -0700 Subject: [PATCH] Yet another fix for TTL/HL 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 a0b8de455..5d713c3ab 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 ( $1 eq $2 || $2 != 0 ) && ( $param = abs $param ) < 256; + fatal_error "Invalid TTL specification( $cmd )" unless supplied( $1 ) && ( $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 ( $1 eq $2 || $2 != 0 ) && ( $param = abs $param ) < 256; + fatal_error "Invalid HL specification( $cmd )" unless supplied( $1 ) && ( $1 eq $2 || $2 != 0 ) && ( $param = abs $param ) < 256; if ( $1 =~ /^\+/ ) { $target .= " --hl-inc $param";