From 67e7369303c97d4226803943c11816ac7525c555 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Thu, 22 Mar 2007 17:58:25 +0000
Subject: [PATCH] Restore the ability to use a params file with the perl
 compiler

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5627 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall/lib.config |  7 ++++++-
 Shorewall/shorewall  | 10 ++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/Shorewall/lib.config b/Shorewall/lib.config
index 34ab9b8db..fe2903ac9 100644
--- a/Shorewall/lib.config
+++ b/Shorewall/lib.config
@@ -1732,7 +1732,8 @@ do_initialize() {
     USE_ACTIONS=
     OPTIMIZE=
     EXPORTPARAMS=
-    EXPERIMENTAL=
+    #EXPERIMENTAL is inherited
+
     #
     # Packet Disposition
     #
@@ -1786,8 +1787,12 @@ do_initialize() {
 
     [ -f $VERSION_FILE ] && VERSION=$(cat $VERSION_FILE)
 
+    [ -n "$EXPERIMENTAL" ] && set -a; 
+    
     run_user_exit params
 
+    [ -n "$EXPERIMENTAL" ] && set +a && EXPERIMENTAL=
+
     config=$(find_file shorewall.conf)
 
     if [ -f $config ]; then
diff --git a/Shorewall/shorewall b/Shorewall/shorewall
index c91ed24f8..750772753 100755
--- a/Shorewall/shorewall
+++ b/Shorewall/shorewall
@@ -214,6 +214,16 @@ get_config() {
 
     [ -n "${HOSTNAME:=$(hostname)}" ]
 
+    case "$EXPERIMENTAL" in 
+	yes|Yes)
+	    ;;
+	*)
+	    EXPERIMENTAL=
+	    ;;
+    esac
+    
+    export EXPERIMENTAL;
+
 }
 
 #