Apply recent exit status changes to trunk

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7775 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb

Shorewall-perl/prog.functions

@@ -115,6 +115,17 @@ run_iptables()
     fi
 }
 
+#
+# Run iptables retrying exit status 4
+#
+do_iptables()
+{
+    while [ 1 ]; do
+	$IPTABLES $@
+	[ $? -ne 4 ] && break
+    done
+}
+
 #
 # Run iptables and if an error occurs, stop/restore the firewall
 #