Fix debug flags

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5871 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-04-09 16:37:29 +00:00
parent 07947e0c45
commit 67c7ced78b

View File

@ -284,7 +284,7 @@ compiler() {
perl)
[ -x $pc ] || startup_error "SHOREWALL_COMPILER=perl requires the shorewall-perl package which is not installed"
debugflags="-w"
[ "$1" = debug ] && debugflags='-wd' && shift
[ -n "$DEBUG" ] && debugflags='-wd' && shift
[ -n "$PROFILE" ] && debugflags='-wd:DProf'
shift # Perl compiler only takes the output file as a argument