From 1c199a2644bb90b88d2bfcc2ecb158be9228595d Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Mon, 4 Jul 2011 14:27:21 -0700
Subject: [PATCH] Add semicolons in new actions.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/action.Drop    | 4 ++--
 Shorewall/action.Reject  | 4 ++--
 Shorewall6/action.Drop   | 4 ++--
 Shorewall6/action.Reject | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/Shorewall/action.Drop b/Shorewall/action.Drop
index 1c307393f..007f5c084 100644
--- a/Shorewall/action.Drop
+++ b/Shorewall/action.Drop
@@ -36,7 +36,7 @@ FORMAT 2
 # The following magic provides different defaults for $2 thru $5, when $1 is 
 # 'audit'.
 #
-BEGIN PERL
+BEGIN PERL;
 use Shorewall::Config;
 
 my ( $p1, $p2, $p3 , $p4, $p5 ) = get_action_params( 5 );
@@ -54,7 +54,7 @@ if ( defined $p1 ) {
 
 1;
 
-END PERL
+END PERL;
 
 DEFAULTS -,REJECT,DROP,ACCEPT,DROP
 
diff --git a/Shorewall/action.Reject b/Shorewall/action.Reject
index fdda766b1..b1219d1c9 100644
--- a/Shorewall/action.Reject
+++ b/Shorewall/action.Reject
@@ -32,7 +32,7 @@ FORMAT 2
 # The following magic provides different defaults for $2 thru $5, when $1 is 
 # 'audit'.
 #
-BEGIN PERL
+BEGIN PERL;
 use Shorewall::Config;
 
 my ( $p1, $p2, $p3 , $p4, $p5 ) = get_action_params( 5 );
@@ -50,7 +50,7 @@ if ( defined $p1 ) {
 
 1;
 
-END PERL
+END PERL;
 
 DEFAULTS -,REJECT,REJECT,ACCEPT,DROP
 
diff --git a/Shorewall6/action.Drop b/Shorewall6/action.Drop
index 014d4ab19..1c9d9761f 100644
--- a/Shorewall6/action.Drop
+++ b/Shorewall6/action.Drop
@@ -36,7 +36,7 @@ FORMAT 2
 # The following magic provides different defaults for $2 thru $5, when $1 is 
 # 'audit'.
 #
-BEGIN PERL
+BEGIN PERL;
 use Shorewall::Config;
 
 my ( $p1, $p2, $p3 , $p4, $p5 ) = get_action_params( 5 );
@@ -54,7 +54,7 @@ if ( defined $p1 ) {
 
 1;
 
-END PERL
+END PERL;
 
 DEFAULTS -,REJECT,DROP,ACCEPT,DROP
 
diff --git a/Shorewall6/action.Reject b/Shorewall6/action.Reject
index 5d352d601..b109b6ae0 100644
--- a/Shorewall6/action.Reject
+++ b/Shorewall6/action.Reject
@@ -32,7 +32,7 @@ FORMAT 2
 # The following magic provides different defaults for $2 thru $5, when $1 is 
 # 'audit'.
 #
-BEGIN PERL
+BEGIN PERL;
 use Shorewall::Config;
 
 my ( $p1, $p2, $p3 , $p4, $p5 ) = get_action_params( 5 );
@@ -50,7 +50,7 @@ if ( defined $p1 ) {
 
 1;
 
-END PERL
+END PERL;
 
 DEFAULTS -,REJECT,REJECT,ACCEPT,DROP