From cb5a2519f380e7e62305079282d92c4238ef9960 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Sun, 3 Apr 2016 16:30:31 -0700 Subject: [PATCH] Keep hyphens in @chain Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Config.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm index 30ff73c3a..7b4f7afc9 100644 --- a/Shorewall/Perl/Shorewall/Config.pm +++ b/Shorewall/Perl/Shorewall/Config.pm @@ -3301,9 +3301,9 @@ sub push_action_params( $$$$$$ ) { $actparams{caller} = $caller; $actparams{disposition} = '' if $chainref->{action}; # - # The Shorewall variable '@chain' has the non-word charaters removed + # The Shorewall variable '@chain' has offensive characters removed # - ( $actparams{chain} = $chainref->{name} ) =~ s/[^\w]//g; + ( $actparams{chain} = $chainref->{name} ) =~ s/[^\w-]//g; \%oldparms; }