Dsearch: Fix taint-handling in lookup. Bug 2465

[users/heiko/exim.git] / src / scripts / source_checks

diff --git a/src/scripts/source_checks b/src/scripts/source_checks
index 79f9c3555add821f53835d26ebdd0b85eae47170..918a6f8ebb9782c783d25e52f3600ece96dedfd1 100644 (file)
--- a/src/scripts/source_checks
+++ b/src/scripts/source_checks
@@ -10,7 +10,7 @@ do
   perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\n(([^}].*\n)+)/m }' \
   | awk '/{ (US)?"/ {print $2}' \
   | awk -F\" '{print $2}' \
-  | LANG=C sort -c \
+  | LC_ALL=C sort -c \
   || exit 1
 done <<-END
        readconf.c      optionlist_config
@@ -19,6 +19,7 @@ done <<-END
        globals.c       header_names
        globals.c       log_options
        expand.c        item_table
+       std-crypto.c    dh_constants
        transport.c     optionlist_transports
        route.c         optionlist_routers
        transports/appendfile.c appendfile_transport_options
@@ -27,6 +28,8 @@ done <<-END
        transports/pipe.c       pipe_transport_options
        transports/smtp.c       smtp_transport_options
        expand.c        var_table
+       acl.c           conditions
+       acl.c           controls_list
 END
 
 # Tables with just string items
@@ -36,7 +39,7 @@ do
   < $file \
   perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\s?(([^}]*)+)}/m }' \
   | awk -F\" '/"/ {print $2}' \
-  | LANG=C sort -c \
+  | LC_ALL=C sort -c \
   || exit 1
 
 done <<-END
@@ -45,6 +48,5 @@ done <<-END
        expand.c        op_table_main
        expand.c        cond_table
        acl.c           verbs
-       acl.c           conditions
 END