From 652bc75448e0a882f224ce19fdcb020b55f0c0d9 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 7 Nov 2016 11:12:36 -0800 Subject: [PATCH] Omit Shorewall version from converted files. Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Misc.pm | 4 ++-- Shorewall/Perl/Shorewall/Nat.pm | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Misc.pm b/Shorewall/Perl/Shorewall/Misc.pm index 7465809ef..5e785ebf2 100644 --- a/Shorewall/Perl/Shorewall/Misc.pm +++ b/Shorewall/Perl/Shorewall/Misc.pm @@ -312,7 +312,7 @@ sub convert_blacklist() { transfer_permissions( $fn, $fn1 ); print $blrules <<'EOF'; # -# Shorewall version 5.0 - Blacklist Rules File +# Shorewall - Blacklist Rules File # # For information about entries in this file, type "man shorewall-blrules" # @@ -406,7 +406,7 @@ sub convert_routestopped() { transfer_permissions( $fn, $fn1 ); print $stoppedrules <<'EOF'; # -# Shorewall version 5 - Stopped Rules File +# Shorewall - Stopped Rules File # # For information about entries in this file, type "man shorewall-stoppedrules" # diff --git a/Shorewall/Perl/Shorewall/Nat.pm b/Shorewall/Perl/Shorewall/Nat.pm index 7d2796781..3685e7358 100644 --- a/Shorewall/Perl/Shorewall/Nat.pm +++ b/Shorewall/Perl/Shorewall/Nat.pm @@ -592,9 +592,9 @@ sub convert_masq() { my $have_masq_rules; - directive_callback( + directive_callback( sub () - { + { if ( $_[0] eq 'OMITTED' ) { # # Convert the raw rule